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This publication provides the information required for 
writing and running Model 2 PL/I programs that are to 
be compiled and link-edited using the Model 20 PL/I 
compiler under control of the IBM System/360 Model 20 
Disk Programming System. 

Part I, "Model 20 PL/I Language Features", and Part 
II, "Model 2*0 PL/I Syntax Rules", are composed of dis- 
cussions and examples that explain the different fea- 
tures of the language and their interrelationships, 
their syntax notation and rules. Part III, "Model 20 
PL/I as Part of the Disk Programming System", introdu- 
ces the main components of the Disk Programming System, 
explains job control, and discusses compilation, link- 
editing, and execution of a Model 20 PL/I program. 

More detailed information about the Disk Programming 
System can be found in the publications IBM System/360 
Model 20, Disk Programming System, Control and Service 
P rograms , Form C2 4- 9 00^6, and IBM System/360 Model 20, 
G uide to .the Disk Programming System , Form C33-6000. 
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Introduction 



Reasons for Conceiving PL/I 

Throughout the relatively brief history of 
electronic data processing, computers have 
been used mainly in two fields of activity 
- the commercial and the scientific. 

Consequently, programmers generally have 
specialized in one field or the other. 
High-level languages like COBOL for commer- 
cial programming and FORTRAN for scientific 
programming have emphasized this 
divergence. 

Until recently, this difference pre- 
sented few problems.. Each language was 
adequate for its use; the commercial pro- 
grammer dealt with relatively few computa- 
tions performed upon great amounts of data; 
the scientific programmer performed complex 
calculations using small amounts of data. 
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Today's computing systems have been 
designed to cope with all of these comput- 
ing problems. They handle commercial and 
scientific/engineering programs with equal 
ease, with new power and new speed,, 

None of the traditional high-level lan- 
guages, however, can be used with efficien- 
cy across the entire range of ability of 
these new computers. 
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A programmer need not know everything 
about PL/I to be able to use it. An 
experienced programmer can use PL/I to spe- 
cify almost every detail of every step of a 
highly complicated program,. A beginner can 
take advantage of the many automatic fea- 



tures of the language to do much of his 
work for him. 

PL/I has also been designed to reduce 
the cost of programming, including the cost 
of training programmers who need to be 
trained in one programming language only. 
Another factor that contributes to program- 
ming cost is the machine dependency of the 
traditional programming languages, which 
means that frequently a program must be 
rewritten, sometimes because the system 
under which it is used has changed, some- 
times because it is to be run on a new 
machine. Often, rewriting a program costs 
as much as writing it in the first place,. 



Basic Characteristics of PL/I 
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PL/I provides many options in state- 
ments, in descriptions of data or files, 
giving a lot of flexibility in writing pro- 
grams. Wherever there are alternatives, 
the compiler makes an assumption if no 
choice is stated by the programmer. In 
each case, the assumption, called default, 
is the alternative that would be required 
in the majority of situations. The default 
concept is an important part of the simpli- 
city of PL/I,. In many cases, the beginning 
programmer need not even know that alterna- 
tives exist. PL/I is much less machine 
dependent than most commonly used program- 
ming languages, for example the Assembler 
Language. 

The variety of features provided by 
PL/I, as well as the simplicity of the con- 
cepts underlying them, demonstrate the ver- 
satility of the language, its universality, 
and the ease with which different subsets 
can be defined to meet the needs of dif- 
ferent users. 

Model 20 PL/I is a subset of the full 
language,. It is upward compatible with 
System/360 DOS/TOS PL/I provided the same 
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input/output devices are available. The 
user can write both scientific/engineering 
and commercial programs in Model 20 PL/I. 



How to Use the Publication 

This publication is designed as a reference 
book for the Model 20 PL/I programmer. Its 
three-part format allows a presentation of 
the material in such a way that references 
can be found quickly. 

Part I, which may be read sequentially, 
describes the different features of the 
language and their interrelationship. Part 
II,, which is organized purely from the 
reference point of view, brings rules and 
syntactic descriptions. Part III discusses 
the basic features of the Model 20 PL/I 
compiler, describes program compilation and 
execution, and brings all information 
needed to execute a Model 20 PL/I program. 

This publication reflects features of 
the Model 20 PL/I compiler, Consequently, 



a number of features of the full PL/I lan- 
guage are not described in this publica- 
tion, because they are not part of Model 20 
PL/I. 

Language features that are limited 
against the full PL/I language are 
described in the light of the limitations. 
Wherever a description here differs from 
the full language, it is not to be regarded 
as a respecif ication of the language, but 
merely a description of Model 20 PL/I. The 
publication is designed to provide all the 
implementation information needed to write 
programs in Model 20 PL/I and to run them 
under the Model 20 PL/I compiler. 

Implementation features identified by 
the phrase "for IBM System/360 implementa- 
tions ..." apply to all implementations 
for IBM System/360 computers. Features 
identified by the phrase "for the Model 20 
PL/I Compiler ..." apply specifically to 
the IBM Model 20 PL/I Compiler under the 
System/360 Model 20 Disk Programming 
System. 
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Syntax Notation 



Throughout this publication, wherever a 
PL/I statement — or some other combination 
of elements -- appears in the text, this 
statement or phrase is written using a 
uniform system of notation. 



A notation_constant denotes the literal 
occurrence of the characters repre- 
sented. A notation constant consists 
either of all capital letters or of a 
special character. 
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The following rules explain the use of 
this notation for any programming language; 
only the examples apply specifically to 
Model 20 PL/I-" 



1. A no t at ion_ variable is the name of a 
general class of elements in the pro- 
gramming language. A notation variable 
must consist of: 

a) Lower-case letters, decimal digits, 
and hyphens and must begin with a 
letter. 

b) A combination of lower-case and 
upper-case letters,. There must be 
one portion all in lower-case let- 
ters and one portion all in upper- 
case letters, and the two portions 
must be separated by a hyphen. 

All such variables used are defined in 
the manual either syntactically, that 
is, this notation, or by giving a verb- 
al definition. 

Examples : 

a) digit: This denotes the occurrence 
of a digit, which may be through 9 
inclusive. 

b) filename: This denotes the occur- 
rence of the notation variable named 
filename. 

c) DO-statement: This denotes the 
occurrence of a DO-statement. The 
upper-case letters are used to in- 
dicate a language keyword. 



Example: 

DECLARE identifier FIXED; 

This denotes the literal occurrence of 
the word DECLARE followed by the nota- 
tion variable identifier, followed by 
the literal occurrence of the the word 
FIXED and the literal occurrence of the 
semicolon ( ;) . 



The term syntactic_unit, which is used 
in subsequent rules, is defined as one 
of the following: 

a) a single notation variable or nota- 
tion constant, or 

b) any collection of notation 
variables, notation constants, 
syntax-language symbols, and key- 
words surrounded by braces or 
brackets. 



Braces { } are used to denote grouping 
of more than one element into a syn- 
tactic unit. 



Example: 



identifier 



FIXED 



FL 



OAT j 



The vertical stacking of syntactic 
units indicates that a choice is to be 
made. The above example indicates that 
the variable identifier must be fol- 
lowed by the literal occurrence of 
either the word FIXED or the word 
FLOAT. 

The vertical stroke | indicates that a 
choice is to be made. 

Example: 

identifier { FIXED| FLOAT } 

This has exactly the same meaning as 
the above example. Both methods are 
used in this publication to display 
alternatives. 
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Square brackets [ ] denote options. the two alternatives also were option- 

Anything enclosed in brackets may al, the vertical stacking would be 

appear or may not appear at all in the within square brackets instead of 

syntactic unit. Brackets can serve the braces, 
additional purpose of delimiting a syn- 
tactic unit. 

7. Three dots ... denote the occurrence 

Example: of the immediately preceding syntactic 



FILE (filename) [ KEY (expression) ] 



unit one or more times in succession. 
Ex a mp_le : 



This denotes the literal occurrence of 

the word FILE followed by the notation [digit]... 

variable filename enclosed in paren- 
theses and optionally followed by the The variable digit may or may not occur 
literal occurrence of the word KEY with since it is surrounded by 

its notation variable expression en- brackets. If it does occur, it may be 

closed in parentheses. If, in rule 4, repeated one or more times. 
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Parti 



Model 20 PL/I Language Features 



Basic Characteristics of Model 20 PL/I 



The modularity of PL/I, that is, the ease 
with which combinations of language fea- 
tures can be used to meet different needs, 
is one of the most important characteris- 
tics of PL/I; in fact, it is the base on 
which PL/I has been built. 



This chapter briefly discusses most of 
the basic features to give you an overall 
description of the language. Each feature 
is treated in more detail in subsequent 
sections. 



Program Structure 

A Model 20 PL/I program is constructed of 
statements that are logically grouped 
together into one or more blocks called 
procedures. A program always comprises a 
main procedure and, usually, a number of 
other procedures that perform specific 
functions- 



The rules defining the use of proce- 
dures, communication between procedures, 
the meaning of names, and the allocation of 
storage are fundamental for the understand- 
ing of PL/I. 



Data Types and Data Description 

The characteristic of PL/I that most con- 
tributes to the range of applications for 
which it can be used is the variety of data 
types that can be represented and manipu- 
lated. In our context, data is generally 
defined as a representation of information 
in the form of digits and characters that 
have certain characteristics called attri- 
butes. PL/I deals with arithmetic data, 
character-string data, and program-control 
data, such as labels and pointers 
(addresses) . It provides you with features 
to perform arithmetic operations, logical 
operations (e.g., comparison), and opera- 
tions and functions for manipulating char- 
acter strings. In order to be able to per- 
form these operations, data items are usu- 
ally given names. 

The compiler must be able to determine, 
for every name used in a program, the com- 
plete set of attributes associated with 
that name. You may specify these attri- 
butes explicitly by means of a DECLARE sta- 
tement, or the compiler may determine all 
or some of the attributes by context or by 
default if you do not specify them., 



Default Assumptions 
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Storage Allocation 

PL/I provides you with more flexibility in 
the allocation of main storage than most 
other programming languages,. The storage 
areas for data in a PL/I program may be 
assigned statically, that is, when the pro- 
gram is loaded, or dynamically, that is, 
when the individual procedures are 
executed. 

There are three different storage 
classes in Model 20 PL/I: STATIC, 
AUTOMATIC, and BASED. In general, the 
default storage class in Model 20 PL/I is 
AUTOMATIC. Storage for data with the 
storage class attribute STATIC is statical- 
ly allocated, while for data with the 
attribute AUTOMATIC or BASED it is dynamic- 
ally allocated. 



Expressions 

Calculations in PL/I are specified by ex- 
pressions. The meaning of an expression in 
PL/I is similar to that of an expression in 
elementary algebra,. For example the 
expression. 

A + B * C 

specifies multiplication of the value of B 
by the value of C and addition of the value 
of A to the result. The data used in an 
expression must be of the same type; that 
is, there can be no mixing of data types in 
an expression. For example, a character- 
string cannot be added to an arithmetic 
value. 

The results of the evaluation of expres- 
sions may be assigned to variables. 
Variables are names representing data. An 
example of an assignment statement is: 
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X = A + B * C; 

This means: Evaluate the expression on the 
right and assign it to X,. The type of the 
result of the expression must be consistent 
with the type of X,. 

Data Collections 

Data variables can be grouped into either 
arrays or structures* An array is composed 
of elements of the same characteristics. A 
structure is a collection of variables, not 
necessarily alike in characteristics. 
Individual items of an array are referred 
to by the subscripted name of the array; 
individual items of a structure are 
referred to by names given to them. 

Expressions cannot be specified for 
arrays or structures, but for elementary 
components of arrays or structures. Con- 
sider the following the assignment 
statement : 

A = B + C; 

The names used in this assignment statement 
could be elements of structures or arrays, 
but not arrays or structures themselves. 

Input/Output 

Input/output (I/O) is the transmission of 
data from an external storage medium to 
internal (main) storage and vice-versa. 
There are two classes of I/O in PL/I: 
stream-oriented and record-oriented I/O. 

Stream-oriented I/O is almost completely 
machine-independent. On input, data items 
are selected one by one from what is 
assumed to be a continuous stream of chara- 
cters and are converted automatically to 
conform, in main storage, to the attributes 
of the variables to which they are 
assigned. Similarly, on output, data items 
are converted one by one to external char- 
acter form and are added to a conceptually 
countinuous stream of characters. 



For printing, the output stream may be 
considered to be divided into lines and 
pages. An output stream file may be 
declared to be a print file with a certain 
line size and page size. PL/I provides you 
with the facilities to detect the end of a 
page and to specify the beginning of a line 
or a page. 



Record I/O is machine dependent. It 
deals with collections of data, called 
records, and transmits these a record at a 
time without any data conversion,. The 
external representation is an exact copy of 
the internal representation. Because the 
record is treated as a whole, and because 
no conversion is performed, this form of 
I/O is potentially more efficient than 
stream-oriented I/O, although the actual 
efficiency of each class will, of course, 
depend on the type of problem to be solved. 



Stream-oriented input and output usually 
sacrifices efficiency for ease of handling. 
Each data item is transmitted separately 
and is examined to determine if data con- 
version is required. Record-oriented input 
and output, on the other hand, provides 
faster transmission by transmitting data as 
entire records, without conversion. 



Interrupt Activities 

Modern computing systems provide facilities 
for interrupting the execution of a program 
whenever an exceptional condition arises. 
Further, they allow the program to deal 
with the exceptional condition and to 
return to the point at which the interrupt 
occurred. 

PL/I has facilities for detecting a 
variety of exceptional conditions. It 
allows you to specify the conditions for 
which, should they arise, you want an 
interrupt to occur, and also the action to 
be taken when such interrupt does occur. 
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Program Elements 



In most programming languages, the length 
of an individual instruction or statement 
is limited by the size of a single punch 
card. If a statement exceeds the size of 
one card, a notation must be made, usually 
with a punch in some particular card 
column, to indicate that the statement is 
continued on the following card. 

PL/I has no such artificial limitation. 
There is no fixed-length format for input 
although the Model 20 PL/I compiler 
reserves some card columns: the first 
column of every card in a program must be 
blank, and columns 73 through 80 of these 
cards are ignored and can contain any 
information, for example, card sequence 
numbers. 

Within the available card area, you can 
write your program without considering spe- 
cial coding forms and without having to 
ensure that each statement begins in a spe- 
cific column. As long as each statement is 
terminated by a semicolon, the format is 
completely free. Each statement may begin 
in the next column or position after the 
end of the previous statement, or any num- 
ber of blanks may intervene. 



Character Sets 

You may write your programs in one of two 
character sets; either a 60-character set 
or a 48-character set,. The choice between 
the two sets is optional. In practice, 
this choice will depend upon the available 
equipment. 



60-Character__Set 

The 60-character set is composed of digits, 
alphabetic characters, and special charac- 
ters,. There are ten digits: the decimal 
digits through 9. There are 29 alphabet- 
ic characters, beginning with the currency 
symbol ($) , the number sign (#) , and the 
commercial "at" sign (a)) , which precede the 
26 letters of the English alphabet in the 
IBM System/360 collating sequence in 
Extended Binary-Coded-Decimal Interchange 
Code (EBCDIC) ,. For use with languages 
other than English, the three alphabetic 
characters $, #, and 3 can be used to cause 
the printing of letters that are not 
included in the standard English alphabet. 

There are 21 special characters. They 
are as follows: 



Name 


Character 


Blank 






Equal or assignment 




= 


symbol 






Plus sign 




+ 


Minus sign 




- 


Asterisk or multiply 




* 


symbol 






Slash or divide symbo 


1 


/ 


Left parenthesis 




( 


Right parenthesis 




) 


Comma 




i 


Point or period 




. 


Single quotation mark 




• 


or apostrophe 






Percent symbol* 




% 


Semicolon 




• 


Colon 




: 


"Not" symbol 




t 


"And" symbol* 




& 


"or" symbol 




1 (us 



"Greater than" symbol 
"Less than" symbol 
Break Character 1 
Question mark* 



(used only in 
Model 20 PL/I in 
combination with 
a second "or" 
symbol ( | ) ) as 
concatenation 
operator) 



*not used in Model 20 PL/I 

Special characters are combined to cre- 
ate other symbols,. For example, <= means 
"less than or equal to ", t= means "not 
equal to". The combination ** denotes 
exponentiation (X**2 means X 2 ). Blanks are 
not permitted in such composite symbols. 

The rules for PL/I sometimes specify 
that an "alphameric" character must be used 
in certain coding,. The term alphameric 
refers to any of the 29 alphabetic charac- 
ters and the 10 digits, but not to the 21 
special characters. 

Note: The question mark, at present, has 
no specific use in the PL/I language, even 
though it is included in the 60-character 
set. The percent symbol and the "And" sym- 
bol have no meaning in Model 20 PL/I, 
although they do have a meaning in the full 
PL/I language used with higher System/360 
models. 



iThe break character is the same as the 
typewriter underline character,. It can be 
used with a name, such as GR0SS_PAY, to 
improve readability,. 
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The restrictions for this character set 

are described in Appendix_C._ Character 

Sets With EBCDIC and Card-Punch Codes." 



ii8~Character_Set 

The 48-character set is composed of 48 
characters of the 60-character set. In all 
but five cases, the characters of the 
reduced set can be combined to represent 
the missing characters of the larger set. 
For example, the semicolon (;) is not 
included in the 48-character set, but a 
comma followed by a point (,.), without 
intervening blanks, can be used to repre- 
sent it. The five characters that cannot 
be represented are the commercial "at" 
sign, the number sign, the break character, 
the question mark, and the percent symbol. 

The restrictions and changes for this 
character set are described in Appendix_C. 
Character_Sets_with_EBCDIC_an 
Codes- 
Using the Character Sets 

All elements that make up a PL/I program 
are constructed exclusively from the PL/I 
character sets, with two exceptions: 
character-string constants and comments may 
contain any character in the EBCDIC charac- 
ter set. 

Certain characters perform specific 
functions in a PL/I program. For example, 
many characters are used as operators. 

There are three types of operators: 
arithmetic, comparison, and string 
operators. 

The arithmetic operators are: 

+ denoting addition or prefix plus 

- denoting subtraction or prefix minus 



* denoting multiplication 
/ denoting division 
** denoting exponentiation 

The comparison operators are: 

> denoting "greater than" 
i > denoting "not greater than" 
>= denoting "greater than or equal to" 

= denoting "equal to" 
n = denoting "not equal to" 
<= denoting "less than or equal to" 

< denoting "less than" 
-i < denoting "not less than" 

The string operator is: 

| | denoting concatenation 

Figure 1 shows some of the functions of 
other special characters. 

Identifiers 

In a PL/I program, you give names or labels 
to data, statements, files, and procedures. 
In creating a name or label, you must 
observe the syntactic rules for creating 
the identifier. 

An identifier is a single alphabetic 
character or a string of up to 31 alphamer- 
ic and break characters, not contained in a 
comment or constant, and preceded and fol- 
lowed by a blank or some other delimiter 
(which may be an operator or a special 
character (except a decimal point) ) ; the 



Name 

comma 

period 

semicolon 

assignment 

symbol 
colon 
blank 

apostrophe 
parentheses 



Character Use 







separates elements of a list 
indicates decimal point 
terminates statements 
indicates assignment of values 1 

connects prefixes to statements 
separates elements of a statement 
encloses string constants 

enclose lists; specify information associated with various key- 
words; in conjunction with operators and operands, delimit por- 
tions of an operational expression 



PThe character = can be used as an equal sign and as an assignment symbol,. 



Figure 1„ Some Functions of Special Characters 



16 IBM System/360 Model 20 DPS PL/I 



initial character of the string must be 
alphabetic. 
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purpose of a name. For 
AL, and ENDFILE are 
e list of keywords and 
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ds. 



Note: Only when using the 48-character 
set,, some PL/I keywords are reserved words. 
Keywords are recognized as keywords by the 
compiler only when they appear in their 
proper context,. In other contexts they may 
be used as programmer-defined identifiers. 
(Those keywords that are reserved are given 
in the section Reco3nition_of_Names,. 

An identifier must not exceed 31 charac- 
ters in length. For the Model 20 PL/I com- 
piler, some identifiers, as discussed in 
later sections, must not exceed six charac- 
ters in length; this limitation applies to 
certain names, called external names, that 
may be referred to by other procedures. 

The following are examples of identi- 
fiers you could use for names or labels: 

A 

FILE2 

L00P_3 

RATE_OF_PAY 

#32 

The third and the fourth example illustrate 
the use of the break character to improve 
readability of an identifier, since blanks 
are not permitted in identifiers. 



Examples of illegal identifiers are: 

/*ABC 
23AC 
A*B 
BEG IN 

An identifier must not contain special 
characters; it must not start with a digit; 
and it must not contain embedded blanks. 



The_U§e_of_Blanks 

You may use blanks freely throughout a PL/I 
program. You may or may not use them 
before and after operators and most other 
delimiters. In general, any number of 
blanks may appear wherever one blank is 
allowed, such as between words in a 
statement. 



One or more blanks must be used to 
separate identifiers and constants that are 
not separated by some other delimiter or by 
a comment,. However, identifiers, constants 
(except character-string constants) and 
composite operators (for example, -i =) must 
not contain blanks,. 

Other cases that require or permit 
blanks are noted in the text where the fea- 
ture of the language is discussed. See 
Figure 2 for examples,. 



Comments 

Frequently you may want to insert comments 
into your programs to clarify the action 
that is taken at a given point. These com- 
ments enable someone unfamiliar with the 
program to follow your line of thought, and 
they are helpful to you when looking back 
over program sections that were written 
earlier. 

Comments are permitted wherever blanks 
are allowed in a program. You may insert 
them between statements or in the middle of 
a statement without affecting the compila- 
tion of your program,. 

The character pair, /*, indicates the 
beginning of a comment. The same charac- 
ters reversed, */, indicate its end. No 
blanks or other characters must separate 
these two characters; the slash and the 
asterisk must be immediately adjacent. The 
comment itself may contain any characters 
except the */ combination, which would be 
interpreted as terminating the comment. 

/* THIS WHOLE SENTENCE COULD BE INSERTED 
AS A COMMENT!*/ 

/*S0 COULD +#$C%&-THIS!*/ 



i ■ 

| AB + B'C 

|TABLE(10) 

| FIRST, SECOND 

IAT0B 



is equivalent to 
is equivalent to 
is equivalent to 
is not equivalent to 



AB + BC 
TABLE ( 10 ) 
FIRST, SECOND 
A 10 B 



Figure 2,. Examples of the Use of Blanks 
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In comments you may use any characters 
recognized, by the system hardware. This 
includes characters that are not in the 
PL/I character set, such as the cent sign 
in the second example above,. 

Note: The length of a single comment must 
not exceed 5 cards. However, any number of 
comments may occur consecutively. 



Basic Program Structure 

A PL/I program is made up of basic program 
elements called statements* There are two 
types of statements: simple and compound. 
These statements make up larger program 
elements called DO-groups and procedures. 



SIMPLE_AfD_COMPOUND_STATEMENTS 

There are three types of simple statements 
in PL/I: keyword, assignment, and null 
statements, each of which is terminated by 
a semicolon,. 



2. ON UNDERFLOW GOTO UNFIX; 

The ON compound statement is always 
composed of only two simple statements 
terminated by a semicolon,. 



Statement_Pref ixes 

Both simple and compound statements may 
have one or more prefixes. We have two 
types of prefixes in PL/I: the label pre- 
fix and the condition prefix. 



A i§bel_prefix 
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m interchangeably 
For example: 



LABEL1 :LABEL2:A=B; 



A K§2H2£^_Si§i®Sl§Bt nas a keyword to 
indicate the function of the statement,. 
For example: 

GOTO LOOP; (GOTO is a keyword; a blank 

between GO and TO is optional. 

The assignment_statement contains the 
assignment symbol (=) and does not have a 
keyword,. For example: 

A = B + C; (This is an assignment state- 
ment; it does not contain a 
keyword) . 

The null_statement consists of a semico- 
lon only and indicates that no operation is 
to be performed,. The null statement may be 
used in connection with interrupts. 

;; (Null statement) 



PROCEDURE statements, however, must have 
one and only one label,. The label prefix 
of a PROCEDURE statement is known as an 
QBiil-SS:!©* Tne label prefix of any other 
statement is known as a statement label,. 
DECLARE statements must not be preceded by 
any prefix. 



A condition_prefix is used to specify 
whether or not program interrupts are to 
result from the occurrence of the named 
conditions. Condition names are language 
keywords, each of which represents an 
exceptional condition that might arise dur- 
ing the execution of a program. In Model 
20 PL/I only PROCEDURE statements may have 
condition prefixes. An example is OVER- 
FLOW. The OVERFLOW condition arises when 
the exponent of a floating-point value 
exceeds the maximum allowed (representing a 
maximum value of about 10* 9 ),. 



A 22ffl£2und_statement i s a statement that 
contains more than one simple statement. 
It is terminated by the semicolon of the 
last simple statement. 

There are two compound statements: the 
IF statement and the ON statement. 
Examples of compound statements are: 

1.. IF A<B THEN A = B + C; 

This compound statement is terminated 
by the semicolon of the simple state- 
ment A = B + C;. The IF statement may 
be nested which means that it may con- 
tain other compound statements. 



A condition name in a condition prefix 
may be preceded by the word NO to indicate 
that, effectively, no interrupt is to occur 
if the condition arises. There must not be 
any blanks between the NO and the condition 
name. 



A condition prefix consists of a list of 
one or more condition names, separated by 
commas and enclosed in parentheses. Only 
one condition prefix must be attached to 
the PROCEDURE statement, and the parenthe- 
sized list must be followed by a colon. A 
condition prefix precedes the entire 
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PROCEDURE statement, including the entry [label: ]DO; 
name for the PROCEDURE statement. 



Example: 

(CONVERSION, NOOVERFLOW) : 
PROCEDURE;; 



PR0GM1: 



The condition prefix indicates that an 
interrupt is to occur if the CONVERSION 
condition arises, but that no interrupt is 
to occur if the OVERFLOW condition arises. 
Note that the condition prefix precedes the 
entryname PR0GM1. 

Since intervening blanks between a pre- 
fix and its associated statement are 
ignored, it is often convenient to punch 
the condition prefix into a separate card 
that precedes the card into which the sta- 
tement is punched. Thus, after debugging, 
you can easily remove the prefix. 

Example: 

(CONVERSION, NOOVERFLOW) : 
PR0GM1: PROCEDURE; 

If no condition prefix precedes a proce- 
dure statement, or if not all possible con- 
ditions are explicitly stated, the compiler 
assumes default values. 

Condition prefixes are discussed in the 
section entitled Exceptional_Condition 
Handling* 



GROUPS_AND_PROCEDURES 

A group, also called a DO-group, is a 
sequence of statements headed by a DO sta- 
tement and terminated by a corresponding 
END statement, as follows: 



END; 



DO-groups are used for control purposes 
and, in general, they can appear wherever 
single statements can appear. One DO-grouj: 
may contain another DO-group; that is, a 
DO-group may be nested. DO-groups normally 
are used to specify an iterative process 
and/or in the IF compound statement. 



A procedure is a sequence of statements 
headed by a PROCEDURE statement and ter- 
minated by an END statement, as follows: 



label: PROCEDURE; 



END; 



With Model 20 PL/I, a procedure may con- 
tain any statement except another PROCEDURE 
statement. Thus, unlike DO-groups, proce- 
dures cannot be nested. 

The label preceding a procedure state- 
ment is called the entry^name of the proce- 
dure, or the procedure_name. A procedure 
is invoked (activated) by a procedure 
£§£§£§&£§/ that is, a special reference to 
the procedure name. The point at which the 
procedure reference appears in a program 
(for example: CALL PROGM1;), is called the 
point_of_in vocation; the procedure contain- 
ing the procedure reference is called the 
i HI o k i ng_pr o ce dur e . 
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Data Elements 



Data is generally defined as a representa- 
tion of information. 

In PL/I, you refer to a data item, 
arithmetic or character-string, by using 
either a variable or a constant (the terms 
are not exactly the same as in general 
mathematical usage) . 

A y.a.r,ia_b_!e_ is a symbolic name having a 
value that may change during execution of a 
program. The characteristics of a variable 
are not immediately apparent from the name. 
Since these characteristics, called attri- 
butes, must be known, certain keywords and 
expressions may be used to specify the 
attributes of a variable in a DECLARE sta- 
tement,. The attributes you may use to 
describe data are discussed briefly in this 
section,. A complete discussion of each 
attribute appears in Part II of this manu- 
al, under Attributes,. 

A constant (which is not given a symbol- 
ic name) has a value that cannot change. 

A constant does more than state a value; 
it demonstrates various characteristics of 
the data item. For example, 3. 1416 shows 
that the data type is arithmetic and that 
the data item is a decimal number of five 
digits and that four of these digits are to 
the right of the decimal point. 

The following statement has both 
variables and constants: 

AREA = RADIUS**2*3.1416; 

AREA and RADIUS are variables; the num- 
bers 2 and 3.1416 are constants. The value 
of RADIUS is a data item, and the result of 
the computation will be a data item that 
will be assigned as the value of AREA. The 
number 3,1416 in the statement is itself a 
data item. 

If the number 3.1416 is to be used in 
more than one place in the program, it may 
be convenient to represent it as a variable 
to which the value 3.1416 has been 
assigned,. Thus, the above statement could 
be written as; 

PI = 3. 1416; 
AREA = RADIUS**2*PI; 

In the second statement, only the digit 
2 is a constant. 

In preparing a. PL/I program, you must be 
familiar with the types of data that are 



permitted, the ways in which data can be 
organized, and the methods by which data 
can be referred to. The following para- 
graphs discuss these features. 



Data Types 

The data you may use in a PL/I program fall 
into two categories: problem data and 
program-control data. Problem data is used 
to represent values to be processed by a 
program. It consists of the arithmetic and 
character-string data types. Program- 
control data is used to control the execu- 
tion of the program. Statement labels and 
pointers are types of program-control data. 



PROBLEM_DATA 

The types of problem data available in 
Model 20 PL/I are arithmetic and 
character- string. 



ARITHMETIC DATA 

An arithmetic data item is one with a num- 
eric value, that is, a number. It may be a 
dec ima l_c ons ta n t , like for example 215,8, 
or it may be the v a lu e_of _a_v ar ia b le , for 
example, 2.158 assigned to a variable. In 
Model 20 PL/I, all arithmetic data items 
must be written as decimal, either fixed- 
decimal or float-decimal data items. 

Arithmetic data items have the charac- 
teristics of base, scale, and precision. 
For data items represented by an arithmetic 
variable, the characteristics have to be 
specified by attributes declared for the 
variable name, or they are assumed by 
default. 

Base. The base of an arithmetic data item 
in Model 20 PL/I is decimal, that is ten. 

Scale. The scale of an arithmetic data 
item is either fixed-point or floating- 
point. A decimal fixed-point data item is 
a decimal number in which the position of 
the decimal point is fixed. It is speci- 
fied either by its appearance in a constant 
or by a scale factor declared for a vari- 
able. A floating-point data item is a dec- 
imal number followed by an integer exponent 
that may or may not be signed. The 
exponent specifies the assumed position of 
the decimal point, relative to the position 
in which it actually appears. 
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Precision. The precision of an arithmetic 
data item is the total number of digits the 
data item can have in the case of fixed- 
point, or the minimum number of digits 
(excluding the exponent) in the case of 
floating-point. For decimal fixed-point 
data items, precision can also specify the 
assumed position of the decimal point rela- 
tive to the rightmost digit of the number. 

Base and scale of arithmetic variables 
are specified by keywords; DECIMAL for base 
and FIXED and FLOAT for scale,. Precision 
is specified by decimal integer constants 
enclosed in parentheses. 
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Decimal Fixed-Point Data 



A decimal fixed-point data item consists of 
one or more decimal digits. A decimal 
point may be included. If no decimal point 
appears, the point is assumed to be immedi- 
ately to the right of the rightmost digit. 
In most cases a sign may optionally precede 
a decimal fixed-point constant. 

Examples of fixed-point decimal con- 
stants as you may write them in a program 
are : 

3. 141593 

-5280 

455.3 

.00003 

234. 

234 

The keywords for decimal fixed-point 
variables are DECIMAL and FIXED. Precision 
is stated by two unsigned decimal integer 
constants, separated by a comma and en- 
closed in parentheses. The first specifies 
the total number of digits; the second, the 
scale factor, specifies the number of 
digits to the right of the decimal point. 
If the variable is to represent integers, 
the scale factor and its preceding comma 
can be omitted. The attributes may appear 
in any order, but the precision specifica- 
tion must follow either DECIMAL or FIXED. 

To define PI (which should assume the 
value 3.141593) in this way, we could use 
the following statement: 



DCL PI FIXED DECIMAL (7,6); 

This defines the identifier or variable 
PI as a fixed-point decimal item of not 
more than seven digits, six of which are to 
the right of the decimal point. In this 
declaration, of course, no value has yet 
been assigned to PI. This could be done 
later in the program with the following 
assignment statement: 

PI = 3. 141593; 

The value could also be assigned in the 
DCL statement, specifying the INITIAL 
attribute, as follows: 

DECLARE PI FIXED DECIMAL (7,6) 
INITIAL (3. 141593) ; 

This not only defines the identifier PI 
but gives it an initial_value of 3. 141593.. 
The value may be retained throughout the 
program, as is probable in this case, or it 
may be changed during execution by an 
assignment statement. 



The max 
allowed in 
precision, 
made, is 5 
f ixed-poin 
decimal is 
byte, with 
most four 
seguently, 
is always 
digits, ev 
variable m 
as an even 
in the hig 
left of th 
participat 
upon the d 
operation, 
digit is d 
precision 



lmum 

Mod 

ass 

/0. 

t da 

sto 

a s 

bits 

a d 

stor 

en t 

ay s 

num 

h-or 

e le 

es i 

ata 

No 
isre 
of a 



number of d 
el 20 PL/I i 
umed when no 

The interna 
ta is packed 
red in two d 
ign indicati 

of the righ 
ecimal fixed 
ed as an odd 
hough the de 
pecify the n 
ber. Any su 
der position 
ftmost decim 
n any operat 
item, such a 
te , however, 
garded when 
rithmetic ex 



ecimal dig 
s 15. Def 

specif ica 
1 form of 

decimal, 
igits to t 
on in the 
tmost byte 
-point dat 

number of 
claration 
umber of d 
ch extra d 

(that is, 
al digit) , 
ions perfo 
s in a com 

that this 
evaluating 
pressions. 



its 
ault 
tion is 
decimal 
Packed 
he 
right- 

Con- 
a item 

of the 
igits 
igit is 

to the 

and it 
rmed 
parison 

extra 

the 



The fixed-decimal values that can be 
represented in Model 20 PL/I are in the 
range of 10 -so to 1 ^ 9 , even though the 
declared scale factor must lie in the range 
of to 15. Note, however, that not only 
the individual values, but also the values 
resulting from the evaluation of expres- 
sions must be within that range. 

Decimal_Floating2Point_Data 

A decimal floating-point constant is writ- 
ten as one or more digits, with an optional 
sign and decimal point, referred to as the 
mantissa, followed by the letter E, fol- 
lowed by a decimal integer exponent that 
specifies a power of ten. The mantissa has 
the same format as a decimal fixed-point 
constant. Both, mantissa and exponent, may 
be preceded by a plus or minus sign. 
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Consider the following example in which 
the decimal number 312.5 10-17 would be 
written as: 

+312.5E-17 

The digits preceding the letter E are 
the mantissa preceded by an optional plus 
sign. The digits following the letter E 
are the exponent preceded by a minus sign. 

Other examples of decimal floating-point 
constants as you may write them in a pro- 
gram are: 

15E-23 

15E23 

4E-3 

48333E44 

438E0 

5.E-12 

314159E-6 

.00314159E2 

The last two examples represent the same 
value, namely 0.314159. 

The keyword attributes that describe 
decimal floating-point variables are 
DECIMAL and FLOAT,. Precision is stated by 
a decimal integer constant enclosed in 
parentheses. It specifies the number of 
digits to be maintained preceding the E, 
If an item assigned to a variable has a 
fi§ld_width larger than the declared preci- 
sion of the variable, truncation may occur 
on the right. The least significant digit 
is the first that is lost. Attributes may 
appear in any order, but the precision spe- 
cification must follow DECIMAL or FLOAT. 

Consider the following declaration of a 
decimal floating-point variable: 

DECLARE LIGHT_YEARS DECIMAL FLOAT (5) ; 

This statement specifies that 
LIGHT_YEARS is to represent decimal 
floating-point data items with an accuracy 
of five significant digits. 

The maximum precision allowed for deci- 
mal floatingpoint data items in Model 20 
PL/I is 15; the exponent must not exceed 
two digits. The value V that can be ex- 
pressed is in the range of 1 0~ 51 <V<10* 9 , 
and V=0. The default precision is 6. The 
internal representation of decimal 
floating-point data may be in either short 
or long floating-point form. If the 
declared precision is less than or equal to 
6, short floating-point form, otherwise 
long floating-point form is used. 

The internal representation of decimal 
floating-point data is based on the repre- 
sentation of decimal numbers by mantissa 
and exponent. The first byte contains the 



exponent incremented by 50 as a two-digit 
decimal number without sign (but assumed to 
be positive) . The following four, respec- 
tively 8 bytes (depending on whether short 
or long floating-point form is used) con- 
tain the mantissa without any leading zeros 
as a seven-digit or 15-digit decimal num- 
ber, respectively, with the decimal point 
assumed to the left of the leftmost digit. 
Floating-point numbers in internal repre- 
sentation are normalized, i.e. , the left- 
most digit of the mantissa is not zero. 
The (normalized) value zero is represented 
in a special notation having zeros in all 
digit positions of characteristic and 
mantissa. 



Note that all variables that have not 
been explicitely declared and whose names 
do not start with any of the letters I to 
are assumed to be arithmetic decimal 
floating-point variables of six digits. 
(An identifier starting with any of the 
letters I to N must be explicitly 
declared) . 



Nameric-Character_Data 

A numeric-character data item (also known 
as a numeric-field data item) is the value 
of_a_variable that has been declared with 
the PICTURE attrtlyibute and a numeric pic- 
ture specification. The format is: 

DECLARE identifier PICTURE 

'picture- specification' 

The picture specification is a string of 
Ei2£u£e_characters (e.g., 9 and V) used to 
represent a decimal fixed-point or 
floating-point value. The basic form of a 
numeric-picture specification is the pic- 
ture character 9 specified one or more 
times and the optional picture character V, 
which is used to indicate the assumed loca- 
tion of a decimal point. The picture spe- 
cification must be enclosed in apostrophes. 
An example of declaring a picture variable 
is: 

DECLARE PRICE PICTURE '999V99' 

This example specifies that any value 
assigned to PRICE is to be maintained as a 
string of five decimal digits in character 
form, with a decimal point assumed to pre- 
cede the rightmost two digits. 

In some cases it might be convenient to 
use repetition factors in numeric-picture 
specifications. A repetition factor is a 
decimal integer constant, enclosed in 
parentheses, that indicates how often the 
immediately following picture character is 
to be repeated. For example, the following 
picture specification would result in the 
same field as the example shown above: 
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DECLARE PRICE PICTURE »(3)9V(2)9» 

In Model 20 PL/I, numeric-character data 
is stored in zoned decimal format. If it 
is to be used in arithmetic computations it 
is automatically converted to coded 
arithmetic. 

Although numeric-character data is in 
character form like a character string, and 
although it is aligned on the decimal point 
like packed decimal data, it is processed 
differently from the way either packed dec- 
imal items or character strings are pro- 
cessed. Editing_characters (like the point 
and the dollar sign) can be specified for 
insertion into a numeric-character data 
item, and such characters are actually 
stored within the data item. Consequently, 
when the data item is assigned to a. charac- 
ter string, the editing characters are 
included in the assignment. If, however, a 
numeric-character item is assigned to 
another numeric-character or arithmetic 
variable, the editing characters will not 
be included in the assignment; only the 
actual digits and the location of the 
assumed decimal point are assigned. (Note 
that character-string data cannot be 
assigned to numeric-character variables) . 
Consider the following example: 

DECLARE PRICE PICTURE 'S99V.99', 
COST CHARACTER (6) , 
VALUE FIXED DECIMAL (6, 2) ; 

PRICE = 12.28; 

COST = '$12.28' ; 
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Other editing characters (including zero 
suppression characters) and insertion 
characters (like, for example, an 
asterisk) , can be used in numeric-character 
specifications. 

Note that the number of possible digit 
positions in the fixed part of a picture 
declaration must range between 1 and 15, 
inclusively. The total length of a pic- 
ture, including editing characters, must 
not exceed 30 characters. The V character, 
however, does not count since it represents 
only an assumed, not an actual point. A 
picture or editing character preceded by an 
repetition factor (n) counts n times. 

For complete discussions of picture 
characters, see Part II, the section Pic- 
£U£§_§£ecif ication_Characters and the dis- 
cussion of the PICTURE attribute in the 
section Attributes. 



In the picture specification for PRICE, 
the currency symbol ($) and the decimal 
point (.) are editing characters. They 
are stored as characters in the data item. 
They are not, however, a part of its arith- 
metic value, After execution of the second 
assignment statement, the actual internal 
character representation of PRICE and COST 
can be considered identical. If they were 
assigned to character strings, which were 
then printed, they would look exactly the 
same. They do not, however, always func- 
tion in the same may. For example, look at 
the following assignment statements: 

VALUE = PRICE; 
COST = PRICE; 
VALUE = COST; 
PRICE = COST; 
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CHARACTER-STRING DATA 

You may think of a character string as a 
connected sequence of characters that is 
treated as a single data item. The length 
of the string is the number of characters 
it contains. 
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When writing a program, you have to 
enclose character-string constants in apos- 
trophes. If an apostrophe is a character 
in a string, it has to be written as two 
apostrophes with no intervening blank. The 
length of a character string is the number 
of characters between the enclosing apos- 
trophes. If two apostrophes are used 
within the string to represent apostrophes, 
they are counted as a single character. 
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Consider the following examples of 
character-string constants: 

•LOGARITHM TABLE' 

'PAGE 5' 

•SHAKESPEARE"S ''"HAMLET"''' 

' AC438-19' 

(2) 'WALLA ' 



The third example actually 
SHAKESPEARE'S "HAMLET" with 
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The keyword attribute for declaring a 
character-string variable is CHARACTER 
which may be abbreviated as CHAR. The 
length of the character-string variable is 
declared by a decimal integer constant, en- 
closed in parentheses. The length specifi- 
cation must follow the keyword CHARACTER or 
CHAR. For example: 

DECLARE NAME CHARACTER { 1 5) ; 

This DECLARE statement specifies that 
the identifier NAME is to represent a 
character-string data item that is 15 
characters long. The values of this vari- 
able, that is, different character strings, 
are to be assigned during the execution of 
the program. Most data items, however, can 
also be given an initial value by declaring 
the name with the INITIAL attribute and 
listing the initial value. For example: 

DECLARE NAME CHARACTER (1 5) 
INITIAL ('JOHN DOE') ; 
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A character string is assigned from left 
to right. If the actual string is longer 
than the declared length, the string is 
truncated on the right, that is, the right- 
most characters are lost. 
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£1QGRAM-C0NTR0L_DATA 

The types of program-control data in Model 
20 PL/I are label and pointer data. 



LABEL DATA 

A statement label is an identifier written 
as a prefix to a statement so that, during 
execution, program control can be trans- 
ferred to that statement through a 
reference to its label. A colon separates 
the label from the statement, as follows: 

ABCDE: DISTANCE = RATE*TIME; 

In this example, ABCDE is the statement 
label. The statement can be executed eith- 
er by normal sequential execution of 
instructions or by transferring control to 
this statement from some other point in the 
program by means of a GO TO statement, as 
shown in the following example: 

ABCDE: DISTANCE = RATE*TIME; 



GOTO ABCDE; 

ABCDE, as it is used above, can be clas- 
sified as a statement-label_constant i A 
statement-label_variable is a variable to 
which statement-label constants can be 
assigned in the program. Consider the fol- 
lowing example: 

LBL_A: statement; 



LBL B: statement; 



LBL_X = LBL_A; 



Note: If truncation occurs, there will be 
no interrupt. There is no ON-condition in 
Model 20 PL/I to deal with character-string 
truncation. 



GO TO LBL_X; 
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LBL_A and LBL_B are statement-label con- 
stants because they are prefixed to state- 
ments. LBL_X is a statement-label vari- 
able. By assigning LBL_A to LBL_X, the 
statement GO TO LBL_X causes a transfer to 
the LBL_A statement. Elsewhere, the pro- 
gram may contain a statement assigning 
LBL_B to LBL_X. Then, any reference to 
LBL_X would be the same as a reference to 
LBL_B. This value of LBL_X is retained 
until another value is assigned to it. 

A statement-label variable must, be 
declared with the LABEL attribute, as 
follows: 

DECLARE LBL_X LABEL; 



lar data element. TABLE (1), TABLE (2) , and 
TABLE (3) all refer to single elements and 
are element variables. The entire array i£ 
referred to by the unsubscripted name 
TABLE. TABLE is an array variable. 

An array variable is declared in a 
DECLARE statement by giving its name, the 
number of elements in the array, and the 
attributes of the items. Consider the fol- 
lowing example: 

DECLARE TABLE (12) DECIMAL FIXED (2) ; 

This specifies that TABLE refers to an 
array of 12 data elements, each of which 
will have a value that can be represented 
by two decimal digits. TABLE, as declared 
above, might look as follows: 



POINTER DATA 

A pointer variable is the name of a pointer 
which is used to point to a location in 
storage. A pointer is, in effect, the 
address of data in storage,. 

The keyword attribute for declaring 
pointer variables is POINTER. For informa- 
tion on the use of pointer variables, refer 
to the sections Data_Transmission, and 
Ba§ed_Variables_a nd_Pointer_VariabJ.es. 



Data Organization 

In PL/I, we have single data elements or 
collections of data elements, called arrays 
or structures, depending on their composi- 
tion.. A variable that represents a single 
element is called an element_varia£)le. A 
variable that represents a collection of 
data elements is either an arra__variable 
or structure variable. 



ARRAYS 

An array is a named table of data elements 
all of which have identical attributes. 
Only the array itself is given a name. An 
individual element of an array is referred 
to by its relative position within the 
array. The relative position is specified 
by a subscript (enclosed in parentheses) 
following the array name, with or without 
intervening blanks. 

Assume TABLE has been declared to be an 
array of 12 elements. TABLE (1) refers to 
the first data element in the array, 
TABLE (2) to the second, TABLE (3) to the 
third, etc. Each of the numbers, (1) , (2) , 
or (3) , is a subscript that gives the rela- 
tive position, within TABLE, of a particu- 
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Reference 
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79 
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79 
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69 




(9) 


58 




(10) 


49 




(11) 


40 




(12) 



Thus, TABLE (1) would refer to the data 
item 31, TABLE(6) to 73, TABLE(12) to 40. 
The expression TABLE (7) + TABLE (1) would 
yield a value of 110. 
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DECLARE TABLE (4,3) DECIMAL FIXED (2); 

In this statement, TABLE is declared to 
be a two-dimensional array of 12 data 
items; that is, TABLE is considered to con- 
sist of four lists of three items each. It 
has two dimensions, one with a bound of 
four, one with a bound of three. The data 
might be recorded in storage in exactly the 
same way as with the first declaration, but 
conceptually it is ordered differently. 
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The upper bound of the dimension is the 
end of it, 4 and 3 in this case; the lower 
bound or the beginning of a dimension is 
always assumed to be 1, The extent of the 
dimension is the number of integers between 
and including the specified end. Thus, the 
terms bound and extent, while conceptually 
different, have the same value in Model 20 
PL/I. 

Note the difference between a subscript 
and the dimension-attribute specification. 
The latter, which appears in the decla- 
ration of an array, specifies the dimen- 
sioning and the number of elements in an 
array. Subscripts are used in other 
references to identify specific elements 
within the array. 

Following are two different ways in 
which the arrangement might be conceptually 
illustrated. The first shows TABLE as con- 
sisting of four consecutive lists of three 
items each; the second shows it as a matrix 
of four rows and three columns. 



Using the same data, TABLE (2,3,2) might 
be illustrated as follows: 
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You may refer to an element of the above 
described TABLE by a subscripted name with 
two parenthesized subscripts, separated by 
a comma. For example, TABLE (2,1) would 
specify the first element in the second 
list or row, in this case, the data item 
57, 

The Model 20 PL/I Compiler allows a 
maximum of three dimensions to be declared 
for an array. The above described TABLE 
could, in fact, also be declared as a 
three-dimensional array with the following 
DECLARE statement: 

DECLARE TABLE (2,3,2) DECIMAL FIXED (2) ; 

Note that the number of specifications, 
separated by commas, is the same as the 
number of dimensions, and that the product 
of the numbers is equal to the number of 
items in the array: (12), (4,3), (2,3,2). 
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The dimension attribute (2,3,2) speci- 
fies that TABLE represents a list of 12 
data items and that the list will be 
referred to as if it consists of two sub- 
lists, each of which is further divided 
into three sub-lists of two items each. 

The examples of arrays shown in this 
section are arrays of arithmetic data. 
Character strings and statement labels may 
also be collected into arrays. Note, how- 
ever, that pointers may not be collected 
into arrays. 



Ex2£e§sions_as_Subscripts 

The subscripts of a subscripted name need 
not be constants as shown in the above 
examples. Subscripts are frequently ex- 
pressed as variables or expressions. We 
could, for example, use TABLE(I,J*K) to 
refer to the different elements of TABLE by 
varying the values of I, J, and K. 

Note that, although a subscript can be 
an expression, each bound of a dimension- 
attribute declaration must be an unsigned 
decimal integer constant and that the value 
of a subscript must lie within the extent 
of the corresponding dimension. If the 
result of a subscript expression (such as 
J*K above) is not a fixed-decimal integer, 
it is converted to FIXED DECIMAL (5,0) in 
Model 20 PL/I. Note also that the number 
of subscripts in a reference must agree 
with the number of dimensions in the 
declaration. 
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STRUCTURES 

A structure is a collection of data ele- 
ments that need not have identical charac- 
teristics, but that have a logical rela- 
tionship to one another. 
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Consider a program to calculate a weekly 
payroll. One employee, John J. Doe, whose 
man-number is 68584, works 40 hours of 
regular time and five hours of overtime. 
He is paid $4.00 per hour for regular time 
and $6.00 for overtime. 

His weekly pay record, with all the 
above information, is read and assigned to 
a structure named PAYROLL,. The information 
could be ordered: 

DOE JOHN J 68584 40 05 400 600 
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PAYROLL 



LASTNAME 

FIRSTNAME 

MIDDLENAME 

MAN_NO 

REGLHOURS 

OVTMHRS 

STRATE 

OVRTMRATE 



DOE 

JOHN 

J 

68584 

40 

05 

400 

600 



Thus, we could refer to the entire 
collection of data items by the name 
PAYROLL, or we can refer to an individual 
item by an individual name. 

It is often convenient to subdivide the 
entire collection into smaller logical 
collections, to be able to refer collec- 
tively to more than one, but not all, of 
the variables in a structure. In a struc- 
ture, such subdivisions are also given 
names. The above example might be subdi- 
vided as follows: 



(LAST DOE 

NAME ^FIRST JOHN 

(MIDDLE J 

MAN NO 68584 
PAYROLL 

HRS JREGLR 40 

lOVTM - 05 

RATE (STRATE 400 

\OVRTM 600 

The major structure, PAYROLL, contains 
the substructures, NAME, HRS, and RATE. 
MAN_NO is not a substructure but an elemen- 
tary name because it represents only a 
single data item. 

Note that the hierarchy of names can be 
considered to have different levels. At 
the first level is the major-structure 
name; at a deeper level are the substruc- 
ture names, called minor^s true ture_name ; 
and at the deepest level are only elemen- 
tary_names. An elementary name can repre- 
sent an array, in which case it is not an 
element variable, but an array variable. 

When a structure is declared, the level 
of each name is indicated by a level_num- 
ber. The major-structure name, at the 
first level, is always given the level num- 
ber 1. Each name at a deeper level is 
given a greater number to indicate the 
level depth. The above structure could, 
for example, be declared as follows: 

DECLARE 1 PAYROLL, 



NAME, 


3 


LAST, 


3 


FIRST, 


3 


MIDDLE, 


MAN NO, 


HR£ 




3 


REGLR, 


3 


OVTM, 


RATE, 


3 


STRATE, 


3 


OVRTM; 



Note that the pattern of indention is 
used only for readability. The statement 
could be written in a continuous string as 
DECLARE 1 PAYROLL, 2 NAME, 3 LAST, etc. 

The order of appearance of names in a 
DECLARE statement, along with their level 
numbers, determines the structuring. 
Except for the major-structure name, which 
must be declared with the level number 1, 
any number up to 255 may be used in Model 
20 PL/I. Note, however, that only a maxi- 
mum of 8 physical structure levels may be 
specified in structure declarations. 

A structure is specified by declaring 
the major structure name and following it 
with the names of all contained elements. 
Each name is preceded by a level number, 
which is a non-zero decimal integer con- 
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stant. A major structure is always at 
level 1 and all elements contained in a 
structure (at level n) have a level number 
that is numerically greater than n, but 
they need not necessarily be at level n + 
1, nor need they all have the same level 
number. 

A minor structure at level n contains 
all following items declared with level 
numbers greater than n up to but not 
including the next item with a level number 
less than or egual to n. A major structure 
description is terminated by the decla- 
ration of another item at level one, by the 
declaration of an item having no level num- 
ber, or by the end of a declaration list. 

The level numbers of the above example 
might have been declared as follows: 



DECLARE 1 PAYROLL, 


8 


NAME, 




20 LAST, 




20 FIRST, 




9 MIDDLE, 


6 


MAN NO, 


2 


HRS, 




3 REGLR, 




3 OVTM, 


2 


RATE, 




255 STRATE, 




255 OVRTM; 



convenient to be able to use the same iden- 
tifier for related names. In the above 
structure, for example, it would be con- 
venient to refer to the items in HRS and 
RATE as "regular hours" and "regular rate" 
and "overtime hours" and "overtime rate". 
In fact, the elements can be given the same 
names. The last portion of the structure 
might be declared: 

2 HES, 

3 REGLR, 

3 OVRTTM, 
2 RATE, 

3 REGLR, 

3 OVRTTM; 
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HRS. REGLR 
SATE. REGLR 
HRS. OVRTTM 
RATE. OVRTTM 



Exactly the same structuring would 
result. 

When a structure is declared, attributes 
may be specified for each of the element ary 
names. For example: 

DECLARE 1 PAYROLL, 

2 NAME, 

3 LAST CHARACTER (12) , 
3 FIRST CHARACTER (8) , 
3 MIDDLE CHARACTER (1) , 

2 MAN_N0 CHARACTER (5) , 

2 HRS, 

3 REGLR FIXED DECIMAL (2) 
3 OVTM FIXED DECIMAL (2) , 

2 RATE, 

3 STRATE FIXED DECIMAL (3,2) , 
3 OVRTM FIXED DECIMAL (3,2); 

Note: Level numbers are specified with 
structure names only in the DECLARE state- 
ment. In references to the structure or 
its elements, no level numbers are used. 
Only structures can be declared with level 
numbers; a level number cannot be declared 
with any other identifier. 

C]uali^JLgd_.Nai ne s 

All names within a single procedure must be 
unigue. But within structures, it is often 



None of the names in PAYROLL, except 
PAYROLL itself, need be unique within the 
procedure in which it is declared. Each of 
them could be qualified. For example: 

PAYROLL. NAME 
PAYROLL. NAME. LAST 

or NAME. LAST 

or PAYROLL. LAST 

Qualification need go only so far as 
necessary to make the name unique. Inter- 
mediate qualifying names can be omitted. 
The name PAYROLL. LAST is a valid reference 
to the name PAYROLL. NAME. LAST. 

Note: The length of qualified names must 
not exceed 2 cards. 



RESPECIFTCATION OF DATA 

The DEFINED attribute specifies that the 
name of a data element, a structure, or an 
array is to refer to the same storage area 
as the name qiven to other data. For 
example, in the declaration 

DECLARE LIST (20,20), 

LIST_A (20,20) DEFINED LIST; 
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The DEFINED attribute can also be used 
for so-called string;overlay_def ining. 
This type of defining specifies that the 
defined_item (the item having the DEFINED 
attribute; e.g., LIST_A above) is to refer 
to all or part of the storage area occupied 
by the base_identif ier {the identifier fol- 
lowing the keyword~DEFINED; e.g., LIST 
above),. For example: 

DECLARE 1 P, 2 Q CHARACTER (25) , 
2 R CHARACTER (50) , 
PSTRING1 CHAR (60) DEFINED P; 

In this example, PSTRING1 is a character 
string of length 60 defined on the struc- 
ture P. The first character of Q through 
the last character in R can be considered 
as one string of 75 characters in length. 
PSTRING1 refers to the first 60 characters 
of that string, that is, the 25 characters 
of Q effectively concatenated with (that 
is, connected to) the first 35 characters 
of R,. 



Initialization of Data 

The INITIAL attribute, which may be abbre- 
viated as INIT is used to specify an ini- 
tial value for a variable,. The initial 
value is assigned to the variable at the 
time storage is allocated to it. For 
example: 

DCL NAME CHARACTER (10) INITIAL 

('JOHN DOE') ; 
DCL PI FIXED DECIMAL (5,4) INIT 

(3. 1416) ; 

When storage is allocated to NAME, the 
character string 'JOHN DOE' (padded with 
blanks on the right up to ten characters) 
will be assigned to it. When storage is 
allocated to PI, it will be initialized to 
the value of 3.1416. The initial value of 
a variable may be retained throughout the 
program, or it may be changed during 
execution. 

For a STATIC variable, that is, a vari- 
able for which storage remains allocated 
throughout the entire execution of a pro- 



gram, any value specified in an INITIAL 
attribute is assigned only once. For AUTO- 
MATIC variables, that is, variables for 
which storage is allocated whenever the 
declaring procedure is activated, any INI- 
TIAL values will be assigned at each acti- 
vation. INITIAL values cannot be declared 
for BASED variables, DEFINED variables, 
STATIC label variables, and POINTER 
variables. In a structure declaration, the 
INITIAL attribute can only be used in the 
declaration of elementary names. 

The INITIAL attribute may be specified 
for element variables and arrays. Note, 
however, that is cannot be specified for 
arrays of the storage class AUTOMATIC. 

An array can be partly initialized or 
fully initialized. For example: 

DECLARE A (15) CHARACTER (13) INITIAL 

('JOHN DOE', 'RICHARD ROW', 
'MARI SMITH') STATIC, 
B (10,10) DECIMAL FIXED (5) STATIC 
INITIAL ((25)0,(25)1,(50)0); 

' In the first example, only the first 
three elements of A are initialized; the 
remainder of the array is not. The array B 
is fully initialized, with the first 25 
elements initialized to 0, the next 25 to 
1, and the last 50 to 0. The parenthesized 
numbers (25, 25, and 50) are iteration_f ac- 
tors that specify the number of elements to 
be initialized with the same value. 

Note that the depth of nested iteration 
factors in an INITIAL attribute is 
restricted to 3. 

The iteration factor should not be con- 
fused with the character-string repetition 
factor. Consider the following example: 

DECLARE TABLE (50) CHARACTER (10) 

INITIAL ( (10) 'A', (25) (10) 'B' , 
(24) (1) 'C') ; 

This INITIAL attribute contains both 
iteration factors and repetition factors. 
It specifies that the first element of 
TABLE is to be initialized with a string 
consisting of 10 A's, each of the next 25 
elements is to be initialized with a string 
consisting of 10 B's, and each of the last 
24 elements is to be initialized with the 
single character C. In the INITIAL attri- 
bute specification for a character-string 
array, a single parenthesized factor pre- 
ceding a character-string constant is 
assumed to be a string- repetition factor 
(as in (10) 'A') . If more than one appears, 
the one immediately preceding the character 
string is the string-repetition factor, 
while all factors preceding this repetition 
factor are iteration factors. 
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Expressions 



An expression is a representation of a 
value. An expression may be a sinc[le_con- 
stant or an element^yariable, a function 
reference, or a combination of them, 
including operators and other delimiters. 
An expression that contains operators is an 
2£§£3 ; £i .S.a.l_ex££§.§§ion« The constants and 
element variables of an operational expres- 
sion are called operands. 



In the examples below, assume that the 
variables have been declared as follows: 

DECLARE A(10,10) DECIMAL FIXED (15), 
B(10,10) DECIMAL FIXED (15), 
1 RATE, 2 PRIMARY DECIMAL FIXED (4,2) , 

2 SECONDARY DECIMAL FIXED (4,2), 
1 COST, 2 PRIMARY DECIMAL FIXED (4,2) , 

2 SECONDARY DECIMAL FIXED (4,2), 
C DECIMAL FIXED (8) , 
D DECIMAL FIXED (8) ; 

Examples of expressions are: 

C * D 

A (3,2) + B (4,8) 

RATE. PRIMARY - COST. PRIMARY 

A (4,4) * C 

RATE. SECONDARY / 4 

A(4,6) * COST. SECONDARY 

C 

A(10,10) 

All except the last two examples are 
operational expressions. The last two are 
element variables. Note that the expres- 
sion A (10, 10) is not the same as A (10, 10) 
in the DECLARE statement. In the DECLARE 
statement, (10,10) is a dimension attribute 
specifying a two-dimensional array of 100 
element variables. In the expression 
A(10„10), (10,10) is a subscript referring 
to the last element of the array A. 

A single operational expression may con- 
tain a number of arithmetic operations, as 
shown in the following example: 

A (4, 4) +B (3,3) -C* (D/(B (2,2) -A (1 ,1) ) ) **C 

Parentheses within an expression indic- 
ate that the parenthesized portion is con- 
sidered as a single value in relation to 
its surrounding operators. The parenthe- 
sized portion of an operational expression 
is evaluated first, with the innermost 
parenthesized portion taking precedence. 
In the above example, the expression 
(B (2,2) -A (1 , 1) ) is evaluated first, before 
the value of D is divided by the result of 
the subtraction. 



Although an operational expression may 
contain more than one data item, it repre- 
sents a single value that may appear in a 
number of different PL/I statements. The 
most common occurrence of operational ex- 
pressions is in the form of assignment sta- 
tements. Such as: 

C = A + B; 

In this example, all of the three 
operands are element variables. The 
assignment symbol (=) indicates that the 
value of the expression on the right (A + 
B) is to be assigned to the variable C on 
the left. 



Expression Operations 

An operational expression can specify one 
or more single operations. The class of 
operation depends on the class of operator 
specified for the operation. There are 
three classes of operations: arithmetic, 
comparison, and concatenation. 



ARITHMETIC_OPERATIONS 

An arithmetic operation is represented by 
one or two operands in combination with one 
of the following operators: 

The plus and the minus sign can appear 
either as pref ix_operators (for example +A 
or -A) or as infix_operators (that is, 
between operators, such as A + B or A - B) . 
The other arithmetic operators can appear 
only as infix operators. All operands of 
an arithmetic operation must be arithmetic 
(for example, a character-string variable 
in combination with an arithmetic operator 
will lead to an error) . 

An expression may contain a number of 
arithmetic operations. Note that prefix 
operators can precede and be associated 
with any of the operands of an infix opera- 
tion. For example, in the expression 
A*-B, the minus sign preceding the variable 
B indicates that the value of A is to be 
multiplied by the negative value of B. 

A single variable may have more than one 
prefix operator. More than one positive 
prefix operator will have no cumulative 
effect, but two consecutive negative prefix 
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operators will have the same effect as a 
single positive prefix operator. For 
example: 



DECLARE A FLOAT, 

B FIXED DECIMAL (5,0) , 
C FLOAT; 



•A The single minus sign has the effect 
of reversing the sign of the value 
that A represents. 



— A One minus sign reverses the sign of 
the value that A represents. The 
second minus sign again reverses the 
sign of the value, thus restoring it 
to the original arithmetic value of 
A. 

A Three minus signs reverse the sign of 

the value three times, thus giving 
the same result as one minus sign. 



CONVERSION OF OPERANDS IN ARITHMETIC 
OPERATIONS 

The two operands of an arithmetic operation 
may differ in type, precision, and scale. 
The necessary conversions are performed 
automatically according to the rules listed 
below. 



Type 

Numeric-character operands (digits recorded 
in character form as in the PICTURE speci- 
fication) are converted to coded arithmetic 
form. The result of an arithmetic opera- 
tion is always in coded arithmetic form. 
Note that type conversion is the only con^ 
version that can take place in an arith- 
metic prefix operation. 



Precision 



C = A ** B; 

The result of A ** B will be in 
floating-point form and will be assigned to 
the variable C. The exponentiation is, 
however, executed with the FIXED value of 



If both operands of an exponentiation 
operation are fixed-point, conversions may 
occur, as follows: 

1. Both operands are converted to 

floating-point if the exponent has a 
precision other than (p,0). For 
example: 

DECLARE A FIXED DECIMAL, 

B FIXED DECIMAL (5,2) , 
C FLOAT; 



C = A ** B; 

The precision of the value of B has a 
scale factor of two. Since it is not 
an integer, both operands are converted 
to floating-point form. 

2. The first operand is converted to 
floating-point unless the exponent is 
an unsigned fixed-point integer. 

3. The first operand is also converted to 
floating-point if precisions indicate 
that the result of the fixed-point 
exponentiation would exceed the maximum 
number of digits allowed (i.e., 15 dec- 
imal digits) . 



If only precisions differ, no conversion 
takes place. 



Scale 

If the scales of the two operands differ, 
the fixed-point operand is converted to 
floating-point scale. The exception to 
this rule is in the case of exponentiation 
if the first operand is of floating-point 
scale and the second operand (the exponent 
of the operation) is fixed-point with a 
scale factor of zero, that is, a fixed- 
point integer constant or a variable with 
the precision (p,0). In such a case, no 
conversion is necessary, but the result 
will be floating-point. 

Consider the following example: 



FORMATS OF RESULTS OF ARITHMETIC OPERATIONS 
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After the required conversions have 
taken place, the arithmetic operation is 
performed. If the maximum precision has 
been exceeded, the result is truncated, 
that is, digits are lost regardless of the 
scale of the operands. In some cases 
involving fixed-point data, high-order 
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digits may be lost when scale factors are 
such that decimal- point alignment does not 
allow for the declared number of digits. 
In floating-point operations low-order 
digits may be lost even when the maximum 
precision has not been reached. The scale 
and precision of the result depend upon the 
operands and the operator involved. 



For prefix operations, the result has 
the same scale and precision as the con- 
verted operand (for example. (+5.0 has the 
same scale and precision as (-5.0)). 

For infix operations, the result depends 
on the scale of the operands, as described 
in the following sections. 



Fl2_ting_;Point_0perands 

If the converted operands of an infix 
operation are of floating-point scale, the 
result is of floating-point scale. The 
precision of the result is the greater of 
the precisions of the two operands. For 
example: 

DECLARE A FLOAT (5) , 
B FLOAT (7) ; 

The precision of the value of (A+B) will 
be 7. Note that even though the maximum 
precision of 15 has not been reached, low- 
order digits may be lost due to different 
exponents in A, B, and A+B. 



Zi£6d-Point_0p_e rands 

If the converted operands of an infix 
operation are of fixed-point scale, the 
result is of fixed-point scale. The preci- 
sion of a fixed-point result varies accord- 
ing to the type of operation performed. 

The symbols used in the formulas for 
computing the precision of the fixed-point 
results are as follows: 

p represents the total number of digits 
of the result 

g represents the scale factor of the 
result 

p! represents the total number of digits 
of the first operand 

q1 represents the scale factor of the 
first operand 

p2 represents the total number of digits 
of the second operand 

q2 represents the scale factor of the 
second operand 



^^d it ion_and_.Sub.tr act ion. The total number 
of digits in the result is equal to one 
plus the number of integer digits of the 
operand with the greater number of integer 
digits, plus the number of fractional 
digits of the operand with the greater num- 
ber of fractional digits. The total number 
of positions cannot exceed the maximum num- 
ber of digits allowed (15 decimal digits) . 
The scale factor of the result is egual to 
the larger scale factor of the two 
operands. 



Formulas: 

p = 1 + maximum (p1 - q1, p2 - q2) + maxi- 
mum (q1 , q2) 

q = maximum (q1, q2) 

Consider the following example in which, 
for explanation purposes, the variables 
have been broken into parts: 



P1 



p2 



<q1> <q2> 
12354.2385 + 222.11111 

A B C D 

The total_number of digits (p) in the 
result would be equal to 1 plus the number 
of digits in A (p1-q1) plus the number of 
digits in D (maximum (q1/q2)). The scale 
factor of the result would be equal to the 
number of digits in D. The precision of 
the result would be (11,5). 



W ul t i___2___.o.-_. • The total number of digits 
in the result is egual to one plus the num- 
ber of digits in the first operand, plus 
the number of digits in the second operand. 
The total number of digits cannot exceed 
the maximum number of digits allowed for 
the implementation (that is, 15) . The 
scale factor of the result is the sum of 
the scale factors of the two operands. 

Formulas: 

p = 1 + p1 + p2 

q = q1 + q2 

Consider the following example: 

345.432 * 22.45 
A B CD 

The total number of digits in the result 
would be equal to 1 plus the sum of the 
number of digits in parts A, B, C, and D. 
The scale factor of the result would be the 
sum of the number of digits in B and D. 
The precision of the result would be 
(11/5) . 
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Division. The total number of digits in 
the quotient is always 15 (maximum 
allowed) . The scale factor of the quotient 
depends on the number of integer digits of 
the dividend (A in the example below) , and 
the number of fractional digits of the 
divisor (D in the example below) . The 
scale factor is equal to the total number 
of digits of the result (always 15) minus 
the sum of A and D. 

Formulas: 

p = 15 

q = 15 - ((p1 - q1) + q2) 

Consider the following example: 

432.432 / 2 
A B CD 



Exponentiation. If the second operand (the 
exponent) is a positive decimal integer 
constant, the total number of digits in the 
result is one less than the number of 
digits in the first operand plus 1 multip- 
lied by the value of the second operand 
(the exponent) . The scale factor of the 
result is equal to the scale factor of the 
first operand multiplied by the value of 
the second operand (the exponent) . 



Note: In the exponentiation operation 
x*#y, some special cases are defined as 
follows: 

1. If x = and y>0 f the result is 0. 

2. If x = and y<0, the ERROR condition 
is raised. 



The total number of digits in the quo- 
tient would be 15 (the maximum allowed) . 
The scale factor would be 15 minus the sum 
of 3 (A, the number of integer digits in 
the dividend) and zero (D, the number of 
fractional digits in the divisor) . The 
precision of the quotient would be (15,12). 



Note that any change in the number of 
integer digits in the dividend or any 
change in the number of fractional digits 
in the divisor will change the precision of 
the quotient, even_if_all_additional_diqits 
are_zeros. Also note from the above formu- 
las that the result of a fixed-point divi- 
sion can have a scale factor greater than 
zero even though the operands might have a 
scale factor of zero, and that the result 
of fixed-point division can have a negative 
scale factor even though negative scale 
factors cannot be explicitly declared in 
Model 20 PL/I. 

Examples: 

00432.432 / 2 
432.432 / 2.0000 

The precision of the quotient of the 
first example would be (15,10) ; the scale 
factor is equal to 15 - (5+0). The preci- 
sion of the quotient of the second example 
would be (15,8) ; the scale factor is equal 
to 15- (3 + 4) . 



Caution: In the use of fixed-point divi- 
sion operations, take care that declared 
precision of variables and apparent preci- 
sion of constants will not give a result 
with a scale factor that can force the 
result of this or a subsequent operation to 
to be left-truncated by exceeding the maxi- 
mum number (15) of digits allowed. 



3. If x r and y = 0, the result is 1. 

4. If x < and y is not fixed-point with 
precision (p,0) , the ERROR condition is 
raised. 



Formulas: 

p = (p1 + 1) * (value-of-exponent) 
q = ql * (value-of-exponent) 

Consider the following example: 

32 ** 5 



The total number of digits in the result 
would be 14. We arrive at this number by 
multiplying one plus the number of digits 
in the first operand (1+2) by the value 
of the exponent (5) and subtracting one. 
The scale factor of the result would be 
zero (0 * 5, scale factor of the first 
operand multiplied by the value of the 
exponent) . 

Figures 3 through 6 show the results of 
arithmetic operations. 



CQMPARISON_OPERATIONS 

In PL/I, we specify a comparison operation 
by combining operands with one of the fol- 
lowing operators: 

< (less than) 

-, < (not les than) 

<= (less than or equal to) 

= (equal to) 

t= (not equal to) 

>= (greater than or equal to) 

> (greater than) 

i > (not greater than) 
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There are three types of comparisons: 



Algebraic comparison, that is, the com- 
parison of signed arithmetic values in 
coded arithmetic form. If operands 
differ in scale and precision, they are 
converted according to the rules for 
arithmetic operations. Numeric- 
character data is converted to coded 
arithmetic format before comparison. 

Char act er _c omp_ar ison , which is a left- 
to-right, character-by-character com- 
parison of character data according to 
the System/360 collating sequence. 

Point er_compar ison, for which only the 
operators = and t= are allowed. Both 
operands must be valid pointer expres- 
sions, since there is no conversion of 
program-control data. 



The operands of a comparison operation 
must be of the same type; that is, both 
must be arithmetic or both must be charac- 
ter strings. If operands of a character- 
string comparison are of different lengths, 
the shorter operand is extended on the 
right with blanks. 



The result of the comparison operation 
always is a "truth" value in Model 20 PL/I; 
the value is 'true' if the relationship is 
true, and 'false' if the relationship is 
not true. 



The only occurrence of comparison opera- 
tions is in the IF statement, as shown in 
the following example: 

IF A + C = B 

THEN action-if-true 
ELSE action-if-false 



The evaluation of the expression A + C = 
B yields either 'true' or 'false'. Depend- 
ing on the result, either the THEN portion 
or the ELSE portion of the IF statement is 
executed. Note that the comparison opera- 
tions in IF statements can involve only 
element values; arrays or structures are 
not permitted. 



Only comparison operations of "equal" 

and "not equal" are valid for comparisons 
of pointer-variable operands. Labels must 
not be compared. 
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DECIMAL FIXED (p,q) 
p=1 + MAX (p1~q1,p2-g2) 

+ MAX (q1 ,q2) ; 
q=MAX(q1,q2) 



DECIMAL FLOAT (p) 
p = MAX (p1,p2) 



DECIMAL FLOAT (p) 
p=MAX (p1,p2) 



DECIMAL FLOAT (p) 
p=MAX(p1 ,p2) 



Figure 3. Attributes of Results of Addition and Subtraction Operations 
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IDECIMAL FLOAT (p) 
fp = MAX (p1 ,p2) 



DECIMAL FLOAT (p) 
p=MAX(p1,p2) 



Figure 4. Attributes of Result of Multiplication Operations 
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Figure 5,. Attributes of Results of Division Operations 



| First Operand | Second Operand (Exponent) 
,. f 

| FIXED DECIMAL | Unsigned integer 
I (P^,q1) |constant with 
| lvalue n 



| Target Attributes of Result 
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Figure 6. Attributes of Results of Exponentiation Operations 
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CQNCATENATION_OPERATIONS 

A concatenation operation is specified by 
combining operands with the concatenation 
symbol J | . 



The order of evaluation of the expres- 
sion in the IF statement: 



IFA*B+Dn=C then 



The symbol signifies that the operands, 
which must be character strings or numeric- 
character data, are to be joined in such a 
way that the last character of the operand 
to the left will immediately precede the 
first character of the operand to the 
right, with no intervening characters. 
Numeric-character data items are converted 
to character strings before concatenation 
takes place. The result of a concatenation 
operation is a character string whose 
length is egual to the sum of the lengths 
of the two character-string operands. 

For example, if A represents the charac- 
ter string '010234', B the character string 
'101', C the character string 
'XY,Z', and D the character string 'AA/BB', 
then 

A| |B yields '010234101' 

A j | A | | B yields '010234010234101' 

CI |D yields 'XY,ZAA/BB' 

D | | D yields »AA/BBXY,Z' 

BIJD yields '101AA/BB' 



PRI0I.1TY_0F_0PERAT0ES 

In the evaluation of expressions, priority 
of the operators is as follows: 



** prefix+ prefix- 

* / 

infix+ infix- 

II 

<-,<<= = n = >=>-,> (lowest) 



(highest) 
I 



If two or more operators of the highest 
priority appear in the same expression, the 
order of priority of those operators is 
from right to left; that is, the rightmost 
exponentiation or prefix operator has the 
highest priority. Each succeeding exponen- 
tiation or prefix operator to the left has 
the next lower priority. 

For all other operators, if two or more 

operators of the same priority appear in 

the same expression, the order of priority 
is from left to right. 

Note that in Model 20 PL/I only one com- 
parison operation can appear in one expres- 
sion. In case there is a comparison opera- 
tion, it can appear only in the expression 
immediately following the IF in the IF 
statement. 



is according to the priority of the opera- 
tors. It is as if various elements of the 
expression were enclosed in parentheses as 
follows: 

(A) * (B) 

(A * B) + (D) 

(A * B + D) t= (C) 

The order of evaluation (and, conse- 
quently, the result) can be changed through 
the use of parentheses. The above expres- 
sion, for example, might be written as 
follows: 

IF A * (B + D) t= C THEN . 

In such an expression, the expression 
enclosed in parentheses is evaluated first 
and reduced to a single value, before it is 
considered in relation to the surrounding 
operators. In case two parenthesized ex- 
pressions are surrounding an operator there 
is, however, no rule within the language 
that specifies which of the parenthesized 
expression would be evaluated first,. 

In other words, the priority of the 
operators is defined only within a string 
consisting of operands and operators only. 
It does not necessarily hold true for an 
entire expression. Consider the following 
example: 



B) 



(C + D ** E) 



The priority of the operators specifies, 
in this case, only that the exponentiation 
will occur before the addition. It does 
not specify the order of operation in rela- 
tion to the evaluation of the other operand 
(A - B). 

Any operational expression (except a 
prefix expression) must eventually be 
reduced to a final single infix operation. 
The operands and operator of that operation 
determine the attributes of the result of 
the entire expression. 

In general, unless parentheses are used 
within the expression, the operator of low- 
est priority determines the operands of the 
final operation. For example: 



A + 



*C>D**E-F 



In this case, the operators indicate 
that the final operation will be: 

(A + B * C) > (D ** E - F) 
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Sub-expressions can be analyzed in the 
same way. The two operands of the expres- 
sion can be defined as follows: 

(A + (B * C)) > ( (D ** E) - F) 

It is undefined in the language which of 
the two outer parentheses is evaluated 
first. 



Expressions Containing Function References 

In Model 20 PL/I, an operand of an expres- 
sion is usually a constant or an element 
variable. An operand can, however also be 
an expression representing a value which is 
the result of a computation. 

Consider the following example: 

A = B * SQRT (C) ; 

In this example, the expression SQRT (C) 
represents a value which is egual to the 
square root of C. Such an expression is 
called a f unction^reference. 

A function reference consists of a name 
and, usually, a parenthesized list of one 
or more variables, constants, or other ex- 
pressions,. The name is the name of a pro- 
cedure written to perform specific computa- 
tions on the data contained in the list and 
to substitute the computed value for the 
function reference. 

Assume, in the above example, that C has 
the value 16. The function reference SQRT ( 
C) causes the execution of the procedure 
SQRT, which would compute the sguare root 
of 16 and replace the function reference 
with the value 4. In effect, the assign- 
ment statement would become: 

A = B * 4; 

The procedure represented by the name in 
the function reference is called a func^ 
£±2H- The function SQRT is one of the PL/I 
built-in^f unctions. Built-in functions, 
which provide a number of different opera- 
tions, are a part of the PL/I language. (A 
complete discussion of all built-in func- 
tions of Model 20 PL/I appears in Part II, 
under Built^in_Functions.) You may also 
write your own functions for specific pur- 
poses (as described under Arg,uments_and 
Parameters) and use the names of those 
functions in function references. 

I°£§ : Besides returning a value, a func- 
tion may change the value of any variable 
in the expression containing the function 



reference. In this case, the result of the 
expression is undefined and compatibility 
with other System/360 compilers is not 
guaranteed. 



The use of function references is not 
limited to operands of operational expres- 
sions. A function reference is, in itself, 
an expression and can be used wherever an 
expression is allowed. It must, however, 
not be used in place of a variable repre- 
senting a receiving field, such as to the 
left of the assignment statement. 



There is, however, one built-in function 
that can be used as a Eseudo- variable, 
i.e., in a receiving field: the SUBSTR 
function. The SUBSTR pseudo- variable is 
the SUBSTR built-in function name used in a 
receiving field. 



Consider the following example: 

DECLARE A CHARACTER (10) , 
B CHARACTER (30) ; 
SUBSTR (A, 6, 5) = SUBSTR (B,20,5) ; 

In this assignment statement, the built- 
in function name SUBSTR is used both in a 
normal function reference and as a 
pseudo- variable. 

The SUBSTR built-in function (on the 
right side of the assignment symbol) 
extracts a substring of specified length 
from the named string. The pseudo- variable 
SUBSTR (to the left of the assignment sym- 
bol) indicates the location, within a named 
string, that is the receiving field, i.e., 
it replaces a substring of specified length 
in the named string. 

In the above example, a substring five 
characters in length, beginning with the 
20th character of the string B, is to be 
assigned to the last five characters of the 
string A. That is, the last five charac- 
ters of A are to be replaced by the 20th 
through the 24th characters of B. The 
first five characters of A remain 
unchanged, as do all characters of the 
string B. 



Note: None of the functions you may write 
for specific purposes can be used as a 
pseudo- variable. 

The built-in function SUBSTR is dis- 
cussed in Part II, under Built-in 
Functions. 
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Statement Classification 



This section describes the statements 
available in Model 20 PL/I, their functions 
and purpose. Examples of their use are 
also shown,. 

A more detailed description of each sta- 
tement may be found in Part II, under Sta- 
tement, and in the section Data_Transmis- 
sion which shows examples. 

The statements used in Model 20 PL/I can 
be grouped into the following six classes: 

descriptive statements, 

input/output statements, 

data-movement and computational 
statements, 

program-flow control statements, 

exception-control statements, and 

program-structure statements. 

The names of the classes are merely 
descriptive, they have no fundamental sig- 
nificance in the language. Some statements 
are included in more than one class, since 
they can have more than one function. 

Descriptive Statements 

When a PL/I program is executed, it may 
manipulate many different types of data. 
Each data item, except a constant, is 
referred to in the program by a name. 
Model 20 PL/I requires that the names and 
characteristics or attributes of data items 
referred to must be known at the time the 
program is compiled, that is, translated 
into machine language. 

The_DECLARE_Statement 

With the DECLARE statement you specify the 
attributes of the data assigned to each 
variable. But although it is the charac- 
teristics of the data you describe with the 
attributes, it is the data name with which 
the declared attributes are associated. 
Consequently, when a value is assigned to a 
name (or variable) whose attributes 
describe characteristics that are different 
from the attributes of the data, the value 
will be converted where possible so that it 
will have the characteristics of the vari- 
able to which it is assigned. For example, 
when fixed-point data is assigned to a 



variable that has the FLOAT attribute the 
data item is converted to floating-point 
representation. If conversion is not pos- 
sible, a diagnostic message is given by the 
compiler. 

A variable for which a complete set of 
attributes has not been specified, is given 
default attributes by the compiler. 
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The FORMAT Statement 



The FORMAT statement may be thought of as 
describing the layout of data on an extern- 
al medium, for example on a page or on an 
input card. You will find a complete dis- 
cussion of the FORMAT statement in Part II, 
under Statements, and in the section Data 
Transmission. 



Input/Output Statements 

Input/output statements cause a transfer of 

data between main storage and an external 

storage medium, such as disk, tape, or 
card. 
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In the following list, the statements 
that cause a transfer of data are grouped 
into two classes, Record I/O and Stream 
I/O: 

Record I/O Transfer Statements: 

READ 
WRITE 
REWRITE 
LOCATE 

Stream I/O Transfer Statements: 



GET 
PUT 



There are two important differences 
between RECORD transmission and STREAM 
transmission. In STREAM transmission, the 
file on the external medium is considered a 
continuous stream of data items, in charac- 
ter form. On input, the data items are 
assigned from the stream to variables; on 
output they are transferred from variables 
into the stream. In RECORD transmission, 
the file is considered to be a collection 
of physically separate records that are 
transmitted as an entity to or from 
variables. STREAM transmission implies 
conversion. All of the items in the stream 
are in character form. On input, they are 
converted automatically to conform to the 
attributes of the variables to which they 
are assigned; on output, data items are 
converted, if necessary, to characters. In 
RECORD transmission, there is no conver- 
sion; data is transmitted, exactly as it is 
recorded either internally or on the 
external medium. 

Record transmission is mainly used for 
processing large files that are written in 
an internal representation, such as packed- 
decimal. Stream transmission may be used 
for processing keypunched data and for pro- 
ducing readable output, such as lists or 
tables, where editing is required. Record 
transmission is faster because no conver- 
sion is involved. 

RECORD_I/0_Transfer_Statements 



The READ statement 
data (records) from 
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causes the creation 
ing space available 
the record may be b 
tement replaces a r 
that has been read 



causes a transfer of 
the external medium to 

WRITE statement causes a 
from main storage to 

The LOCATE statement 
of new records by mak- 
in a buffer in which 

uilt. The REWRITE sta- 

ecord in an UPDATE file 

from disk. 



STREAM_I/0_Transfer_Statements 

STREAM transmission is always sequential 
and can be performed only by means of GET 



and PUT statements. The GET statement 
causes a transfer of data from the external 
medium to main storage, and the PUT state- 
ment from main storage to the external 
medium. In STREAM transmission, data is 
considered to be a stream of individual 
data items. Record boundaries are general- 
ly ignored, but synchronization with record 
boundaries is possible. 

Note: GET and PUT statements can also be 
used for internal data movement in connec- 
tion with the STRING option. The GET and 
PUT statements with the STRING option are 
discussed under pata_Movement_and_Com£Uta- 
£i2£al_S_tatements in this section. 

lfi£Bi^Qutput_Control_Statements 

Other I/O statements that affect the 
transfer of data are input/output control 
statements. They are: 

OPEN 
CLOSE 

The OPEN statement associates a filename 
(as declared in your program) with a file 
(the actual data recorded on an external 
medium) and prepares the file for 
processing. 
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The DISPLAY Statement 
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Data Movement and Computational Statements 

Internal data movement involves the assign- 
ment of the value of an expression to a 
specified variable. The expression may be 
a constant or a variable, or it may be an 
operational expression. 

The most commonly used statement for 
internal data movement as well as for spe- 
cifying computations is the assignment sta- 
tement,. The GET and PUT statements with 
the STRING option can also be used for 
internal data movement. The PUT statement 
can, in addition, specify computations to 
be performed. 

The_Assig_nment_Statement 

The assignment statement, which has no key- 
word, is identified by the assignment sym- 
bol (=) . It generally has one of two 
forms: 

A = B; 

A = B + C; 

The first form is used purely for 
internal data movement. The value of the 
variable (or constant) to the right of the 
assignment symbol is assigned to the vari- 
able on the left. The second form includes 
an operational expression (B + C) , whose 
value is to be assigned to the variable to 
the left of the assignment symbol (A) . The 
second statement specifies both computa- 
tions and data movement. 

Since the attributes of the variable on 
the left may differ from the attributes of 
the result of the expression (or of the 
variable or constant) , the assignment sta- 
tement can also be used for conversion and 
editing, because the result of the computa- 
tion to the right of the assignment symbol 
is converted to conform to the attributes 
of the variable to the left of the assign- 
ment symbol. 

In the assignment statement A = B + C, 
the variable on the left must be an element 
variable or an array; it must not be a 
structure. The expression on the right 
must only contain single constants and/or 
element variables as operands. Thus, this 
form of the assignment statement can be 
used only to assign single items to element 
variables or arrays. In the assignment 
statement, A = B, the variables to the left 
and right may either be both array names or 
both structure names or an array name on 
the left side and an element variable or 
constant on the right side. 

If they are array names, both arrays 
must have identical dimensions and bounds. 
If they are structure names, both struc- 
tures must have identical structuring and 



the attributes (including arithmetic attri- 
butes) of all corresponding variables in 
the two structures must be identical. 

Example: 

DECLARE 

A1 (10,10) FLOAT, A2(10,10) FIXED, 

A3 (100) FIXED, 

A4(5,5) FLOAT, VI FIXED, 

1 S1, 2((E1,E2) CHAR(10), F FIXED (7,2)), 

1 S2, 2 (E CHAR (20), F FIXED (7,2)), 

1 S3, 2((E1,E2) CHAR (10), F FIXED (7, 2)); 

Valid assignment statements are: 

A1 =. A1 (5, 1) ; 

A1 = A2; 

A1 = V1; 

SI = S3; 

Invalid assignment statements are: 

A1 = A3; Dimensions not identical. 

A1 = A4; Bounds not identical. 

A1 = A1 + A2; Right side is an opera- 
tional expression, not a 
name. 

S1 = S2 ; Structuring not identical. 

The_GET_STRING_and_PUT_STRIN^ 

If the STRING option appears in a GET or 
PUT statement in place of a FILE option, 
execution of the statement will result only 
in internal data movement; neither input 
nor output is involved. 

Assume that NAME is a string of 30 
characters and that FIRST, MIDDLE, and LAST 
are character-string variables. Consider 
the following example: 

GET STRING (NAME) EDIT 

(FIRST, MIDDLE, LAST) 
(A(12) r A(1) ,A(17)) ; 

This statement specifies that the first 
12 characters of NAME are to be assigned to 
the variable FIRST, the next character to 
the variable MIDDLE, and the remaining 17 
characters to the variable LAST. 

The PUT statement with the STRING option 
specifies the reverse operation, that is, 
the values of the specified variables are 
to be concatenated into a character string 
and assigned to the string named in the 
STRING option. For example: 

PUT STRING (NAME) EDIT 

(FIRST, MIDDLE, LAST) 
(A(12),A(1),A (17)); 

This statement specifies that the first 
12 characters of FIRST, the first character 
of MIDDLE, and the first seven characters 
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of LAST are to be concatenated in that 
order, and assigned to the string variable 
NAME. If FIRST or LAST are shorter than 12 
or 17 characters, respectively, then blanks 
are added at the end of FIRST or LAST until 
the specified length of 12 or 17, respec- 
tively, has been reached. 

Computations to be performed can be spe- 
cified in a PUT statement by including 
operational expressions in the data list. 
Assume, for the following example, that the 
variables A, B, and C represent arithmetic 
data and BUFFER represents a character 
string: 

PUT STRING (BUFFER) EDIT 
(A * 3, B + C) 
(F(15) ,F(15)) ; 

This statement specifies that the char- 
acter string assigned to BUFFER is to con- 
sist of the character representations of 
the value of A multiplied by 3 and the 
value of the sum of B and C. Note that 
while arithmetic to character-string and 
character-string to arithmetic conversions 
are not allowed in Model 20 PL/I, they can 
be effectively achieved by the GET STRING 
and PUT STRING operations, respectively; 
however, note also that this can be ineffi- 
cient because of the amount of execution 
time and main storage that is required. 

Operational expressions in the data list 
of a PUT statement are not limited to PUT 
statements with the STRING option. They 
can also appear in PUT statements that spe- 
cify output of a file. 



Program-Flow Control Statements 

Statements in a PL/I program, in general, 
are executed sequentially unless the flow 
of control is modified by an interrupt or 
the execution of one of the following 
statements: 

GO TO 

IF 

DO 

CALL 

RETURN 

END 

The_GO_TO_Statement 

The GO TO statement is most frequently used 
as an unconditional branch. If you specify 
destination of the GO TO statement by a 
label variable, you may then use it as a 
switch by assigning label constants to the 
label variable. 

If you use subscripted label variables, 
that is, labels grouped into an array, you 
can control the switch by varying the sub- 



script. Usually, however, simple program- 
flow control statements are the most 
efficient. 

Note: The keyword GO TO may be written 
either as two separate words or as a single 
word, GOTO. 



Ih.e_IF_Statement 

The IF statement provides the most common 
conditional branch and is used with a 
simple comparison expression following the 
word IF. For example: 

IF A = B 

THEN action-if-true 
ELSE action-if-f alse 

If the comparison is true, the THEN 
clause (the "action-if-true") is executed. 
After execution of the THEN clause, control 
branches around the ELSE clause (the 
"action-if-f alse") , and execution continues 
with the next statement. Note that the 
THEN clause can contain a GO TO statement 
or some other program-flow control state- 
ment that would result in a different 
transfer of control. 

If the comparison is not true, control 
branches around the THEN clause, and the 
ELSE clause is executed. Control then con- 
tinues normally. 

The IF statement might be as follows: 

IF A = B 

THEN C = D; 
ELSE C = E; 

If A is equal to B, the value of D is 
assigned to C, and control branches around 
the ELSE clause. If A is not equal to B, 
control branches around the THEN clause, 
and the value of E is assigned to C. 

Either the THEN clause or the ELSE 
clause can contain some other program-flow 
control statement that causes a branch, 
either conditional or unconditional. If 
the THEN clause contains only a GO TO sta- 
tement, for example, there is normally no 
need to specify an ELSE clause. Consider 
the following example: 

IF A = B 

THEN GO TO LABEL_1; 
next statement; 

If A is equal to B, the GO TO statement 
of the THEN clause causes an unconditional 
branch to LABEL_1. If A is not equal to B, 
control branches around the THEN clause to 
the next statement, whether or not it is an 
ELSE clause associated with the IF 
statement . 
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Note: If the THEN clause does not cause a 
transfer of control and if it is not fol- 
lowed by an ELSE clause, the next statement 
will be executed whether or not the THEN 
clause is executed. 



In this example, if A is equal to B but 
is not equal to C, the second alternative 
of the innermost IF is chosen. Since it is 
a null ELSE, control is transferred out of 
the entire nest to the next statement, 
which is GOTO LABEL 1. 



The expression following the keyword IF 
cannot contain more than one comparison 
operation. However, nested IF statements 
can be used to test for more than one con- 
dition,. Consider the following example: 

IF A = B 

THEN IF A = C 

THEN D = E; 
ELSE F = G; 
ELSE F = A; 
GO TO LABEL_1; 

In the example, E is assigned to D only 
if A is equal to both B and C, If A is 
equal to B, but not to C, then G is 
assigned to F,. If A is not equal to B, 
then A is assigned to F. If either the 
innermost THEN clause (D = E) or the inner- 
most ELSE clause (F = G) is executed, con- 
trol skips to the GO TO statement following 
the final ELSE clause. 

In a series of nested IF statements, 
each ELSE clause is paired with an IF, 
starting at the innermost level. IF- 
condition tests in nested IF statements are 
made in the order from autermost to inner- 
most IF,. As soon as a test is reached that 
is not true, the checking stops, and the 
matching ELSE clause is executed. Control 
is then transferred to the statement fol- 
lowing the entire series of IF statements, 
unless it is directed otherwise by a GOTO 
statement in the ELSE clause. 

In the nesting of IF statements, an 
associated ELSE clause may or may not 
appear for the outermost IF. But every 
nested IF must have an associated ELSE 
clause when any IF statement at a higher 
level requires an associated ELSE clause. 

Assume that a programmer writing the 
above nested IF statements does not want to 
provide a second alternative for the inner- 
most IF statement. If A is equal to B but 
not equal to C, he wants to go to the sta- 
tement labelled LABEL_1. To achieve this, 
he would have to insert a null statement, 
as follows: 



The examples have illustrated the nest- 
ing of IF statements only to the second 
level. Deeper nesting is, however, 
allowed. In Model 20 PL/I, the number of 
IF and DO statements in one nest must not 
exceed 20. Any IF statement, at any level, 
may have a DO group as either or both of 
its alternative actions. 

The_DO_Statement 

The most common use of the DO statement is 
to specify that a group of statements is to 
be executed and re-executed one or more 
times while a control variable is incre- 
mented each time control passes through the 
loop. Such a group might have the form: 

DO COUNTER = 1 TO 10; 



END; 

A DO group is delimited by the DO and 
END statements. In this example, the DO 
statement specifies that the statements 
between the DO and END statements are to be 
executed, as a group, ten times before con- 
trol passes to the next statement. The 
variable COUNTER is used to control the 
number of times the group is executed. 
When the DO group is executed for the first 
time, COUNTER is assigned the value 1. 
Then the group of statements is executed. 
When the END statement is reached, COUNTER 
is incremented by one, and control is 
transferred back to the beginning of the 
group where COUNTER is tested to see wheth- 
er it does not exceed ten. This looping 
continues until the value of COUNTER 
exceeds 10, then control passes to the sta- 
tement following the loop. The above 
example is exactly equivalent to the 
following: 

COUNTER = 1 ; 
LOOP: IF COUNTER > 10 

THEN GO TO NEXT; 



IF A = B 

THEN IF A = C 

THEN D = E; 

ELSE; 
ELSE F = A; 
GOTO LABEL_1; 

An ELSE with a null statement as its 
clause is called a null ELSE. 



COUNTER = COUNTER 
GO TO LOOP;- 
NEXT: next statement 



+ 1; 



Note that since the test is made after 
COUNTER is incremented, its value at the 
end of the loop will be one incrementation 
larger than the number of times the loop is 
executed. In this case, the value of 
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COUNTER will be 11 when execution of the 
loop is terminated. 

The variable COUNTER, either as used in 
the DO statement or as used above, would 
have to be declared to represent values as 
great as 11; e.g., DECIMAL FIXED (2). 

In the preceding example, the value of 
COUNTER is increased by 1 each time the DO 
statement is executed. An incrementation 
of one is assumed unless some other speci- 
fication is made. Consider the following 
example: 

DO COUNTER = 2 TO 1 BY 2; 

This DO statement causes the initial 
value of COUNTER to be set to two. Each 
time the DO statement is executed thereaft- 
er, the value is increased by two. Thus, 
the statements of the DO group would be 
executed five times, and the final value of 
COUNTER would be 12. 
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The control variable of a DO statement 
can be used as a subscript in statements 
within the DO-group, so that each repeti- 
tion deals with successive elements of a 
table or array. For example: 

DO COUNTER = 1 TO 10; 

ARRAY (COUNTER) = COUNTER; 
END; 

In this example, each element of ARRAY 
is set to 1 , 2, 3,... 10, respectively. 

Note: The control variable of a DO group, 
in our example COUNTER, must not be changed 
during execution of the DO group by its 
appearance on the left side of an assign- 
ment statement or in a data list of a GET 
statement or indirectly through a procedure 
that has been called in the DO group. 

DO groups, like IF statements, may be 
nested. Consider the following example: 

DO I = 1 TO 10; 
statement 1 
statement 2 
statement 3 

DO J = 1 TO 10; 

statement 1a 

statement 2a 

statement 3a 

END; 
statement 4 
statement 5 
statement 6 
END; 

The statements of the outer DO group - 
the outer DO-END and statements 1 through 6 
- would be executed ten times. The state- 
ments of the inner DO group - the inner 
DO-END and statements 1a to 3a - would be 



The example shows nesting only to the 
second level. In Model 20 PL/I, the maxi- 
mum number of DO statements allowed in one 
nest is 12. 

The_|ion-Iterative_DO_Statement. The DO 
statement need not specify repeated execu- 
tion of a DO grou£. You can use a simple 
DO statement in conjunction with a DO 
group, as follows: 

DO; 



END; 

The use of the simple DO statement in 
this manner merely indicates that the DO 
group is to be treated logically as a 
single statement. It can be used to speci- 
fy a number of statements to be executed in 
the THEN or ELSE clause of an IF statement. 
For example: 

IF A = B 

THEN DO; 



END; 
ELSE DO; 



END; 

Ik§_£ALL^_RETURN^_and_END_Statements 

A procedure (except the main procedure of a 
program) or a function is invoked (or acti- 
vated) by a CALL statement that names the 
entry point of the procedure. Control is 
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returned to the invoking (or activating) 
procedure when a RETURN statement is 
executed in the called procedure or when 
the execution of the END statement ter- 
minates the called procedure. 

The RETURN statement with a parenthe- 
sized expression is used to return a value 
to a function reference. This form can be 
used only to return from a procedure that 
has been invoked by a function reference. 
The RETURN statement without a parenthe- 
sized expression cannot be used in this 
case. 

A program normally is terminated by the 
execution of the END or RETURN statement of 
the main procedure, either of which returns 
control to the Monitor program. 

Consider the following example: 

FIRST: PROCEDURE OPTIONS (MAIN); 



CALL SECOND; 



ment is encountered and a test is made. 
Depending upon the result of the comparison 
operation, one of the two RETURN statements 
is executed returning control together with 
the evaluated result of an expression to 
SECOND. At the termination of SECOND, con- 
trol is passed back to the main procedure. 



Exception-Control Statements 

The statements discussed in the preceding 
section alter the flow of control whenever 
they are executed. Another way in which 
the sequence of execution can be altered is 
by the occurrence of a program interrupt 
caused by an exceptional condition. 

In general, an exceptional condition is 
the occurrence of an unexpected action, 
such as an overflow, or of an expected 
action, such as an end of file, that occurs 
at an unpredictable time. A detailed dis- 
cussion of the handling of these conditions 
appears in this part of the manual, under 
Ix2§Eii2Sai_S2lld i t ion_Han d ling . 

The ON Statement 



END; 
SECOND: PROCEDURE; 



IF A 1 =B 

THEN RETURN; 

C = A ** 3 + PRODCT (X,Y,Z) ; 



END; 
PRODCT: PROCEDURE (A,B,C); 
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The ON statement is a compound statement 
that contains a GOTO or null statement. 
For example: 



IF A>B + C 

THEN RETURN (0) ; 

ELSE RETURN (A-B*C) ; 
END; 

In the above example, FIRST is the name 
of the main procedure in the program which 
consists of the three procedures FIRST, 
SECOND, and PRODCT. During program execu- 
tion, the procedure SECOND is invoked by 
the CALL statement CALL SECOND in the main 
procedure FIRST. When SECOND is executed, 
the IF statement is encountered. Depending 
on the result of the comparison operation, 
control is either returned to the statement 
immediately following the CALL statement in 
the invoking procedure FIRST, or the state- 
ment containing the function reference 
PRODCT (X,Y,Z) is executed invoking PRODCT. 
When PRODCT is executed, another IF state- 
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ON UNDERFLOW SYSTEM; 



The ON-unit can also be the null statement. 
The example 

ON UNDERFLOW; 
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specifies that when an interrupt occurs as FIXEDOVERFLOW condition is raised, even 

the result of an underflow condition, the though the Label L1 may not be known in the 

interrupt is to be ignored and execution is procedure SECOND, until the statement 0N2 

to continue from the point at which the is executed. Then control branches to sta- 

interrupt occurred. If an ON statement for tement L2 declared in SECOND instead of L1 

UNDERFLOW was not in force at the time of declared in FIRST in the case of FIXEDOVER- 

an interrupt, the standard system action FLOW. After executing the statement 0N3, 

would be taken. the standard system action is taken in the 

case of FIXEDOVERFLOW. After returning 

Note: If the condition of the ON statement from procedure SECOND, the action of state- 

is~CONVERSION, ENDFILE, or KEY, the action ment 0N1 is reestablished, i.e., branching 

must not be the null statement. to L1. 
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FIRST: PROCEDURE OPTIONS (MAIN); 



0N1 : ON FIXEDOVERFLOW GOTO L1 



Note: In this example it is assumed that 
the statement of each of the two procedures 
are executed sequentially. If this is not 
the case due to a GO TO statement or D0- 
group with iteration, the same ON-statement 
may be executed more than once during the 
time of activity of a procedure. 



Program-Structure Statements 

Program-structure statements are those 
statements used to divide a program into 
procedures and DO-groups. These statements 
are the PROCEDURE statement, the END state- 
ment, and the DO statement. 

Ihe_PROCEDURE_S tatement 

A program may consist of a single procedure 
or of several separate procedures. Each 
procedure in a program is headed by a PRO- 
CEDURE statement and ended by an END state- 
ment, as follows: 



CALL SECOND; 



FIRST: PROCEDURE; 



END; 
SECOND: PROCEDURE; 



0N2: ON FIXEDOVERFLOW GO TO L2 ; 



0N3: ON FIXEDOVERFLOW SYSTEM; 



END; 



Until statement 0N1 is executed the 
standard system action is taken in the case 
of a FIXEDOVERFLOW condition. After execu- 
tion of the statement 0N1, control goes to 
a statement with the Label L1 when a FIXE- 
DOVERFLOW condition occurs. After calling 
the procedure SECOND, the program still 
branches to the same statement L1 when the 



END; 

Each procedure must have a name, that 
is, each PROCEDURE statement must be 
labelled. In the example above, FIRST is 
the label of the PROCEDURE statement. The 
procedure name specifies the entry joint 
through which control can be passed to the 
procedure. 

Control does not pass automatically from 
one procedure to another. Each procedure 
to be executed, except the first, must be 
invoked, or called, from some other proce- 
dure. This may be done with either the 
CALL statement or by the appearance of a 
procedure name in an expression. If it 
appears in an expression, the procedure is 
called a function. A function reference 
causes a single value to be computed and 
returned to the function reference for use 
in the evaluation of the expression. 

Communication between two procedures is 
achieved by 
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1. passing arguments (that is, expres- The_DO_Statement 
sions) from an invoking procedure to 

the invoked procedure, Another kind of program structure is pro- 

vided by the DO-group, which is delimited 

2. returning values from the invoked pro- by a DO statement and the associated END 
cedure, and statement. See the DO statement as dis- 
cussed above under the heading Program-Flow 

3. referring to names that are known Q2Q.t r .ol_Statements. 
within both procedures (that is, names 

declared as EXTERNAL in both 
procedures) ,. 
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Flow of Control and Storage Allocation 



This section discusses how control passes 
within a program from one procedure to the 
next, how procedures are activated and ter- 
minated, and how storage may be allocated 
for data within procedures. 



The Procedure 

As we have already stated, a procedure is 
headed by a PROCEDURE statement and ended 
by an END statement, as follows: 

label: PROCEDURE; 



remains active even though control is 
transferred from it to the procedure it 
invokes. Whenever a procedure is invoked, 
execution begins with the first executable 
statement in the invoked procedure. 

The first procedure in a program, called 
the initial or main procedure, can only be 
activated by the Monitor program of the 
DPS. The main procedure must always have 
the OPTIONS (MAIN) attribute specified in 
its PROCEDURE statement, as follows: 

FIRST: PROCEDURE OPTIONS (MAIN) ; 



END; 

Each procedure must have a name, that is 
a label. The label denotes the entry point 
through which control can be passed to the 
procedure. 
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ACTIVATION_OF_A_PROCEDURE 

Control does not pass automatically from 
one procedure to the next. Each procedure, 
except the first, must be invoked, or 
called, from some other procedure, where 
the entry name of the procedure to be 
invoked must appear 

• after the keyword CALL in the CALL_sta2 
tement or 

• as a function_ref erence (see the section 
ik£2Hffi£S£s_and_Parameters for details) . 

When a CALL statement or a function 
reference is executed, the procedure with 
the specified entry name is activated or 
invoked. Control is transferred to the 
specified entry point. The point at which 
the procedure reference occurs, is called 
the p_o in t_of_in vocation. The procedure in 
which the reference is made is called the 
ifi¥2lLLll2_EE2<sedure. The invoking procedure 



CALL A; 
CALL B; 



END; 



In this example, FIRST is the initial 
procedure that invokes other procedures in 
the program. 

Following is a summary of rules that 
apply to the activation of procedures. 

• A ££23.£<1I!! becomes active when the ini- 
tial procedure is activated by the Mon- 
itor program. 

• Except for the initial procedure, all 
procedures contained in a program are 
activated by a reference to them, either 
in a CALL statement or in a function 
reference. 

• A procedure cannot be invoked while it 
is active. 

• The initial procedure remains active for 
the duration of the program. 

• All activated procedures remain active 
until they are terminated (see below) . 



TERMINATION_OF_A_PROCEDURE 

In general, a procedure is terminated when 
one of the following conditions occurs: 

1. Control reaches a RETURN statement 

within a procedure. The execution of a 
RETURN statement causes control to be 
returned to the point of invocation in 
the invoking procedure. If the point 
of invocation is a CALL statement, 
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execution in the invoking procedure is 
resumed at the statement immediately 
following the CALL statement. If the 
point of invocation is a function 
reference, execution of the statement 
containing the reference will be 
resumed. 



the same storage space, at different times, 
to different variables. 

We have, in Model 20 PL/I, two types of 
dynamic storage, automatic and based. 



2. Control reaches the END statement of 
the procedure. Effectively, this is 
equivalent to the execution of a RETURN 
statement. 

3. A GO TO statement causes the termina- 
tion of one or more procedures by 
branching back to one of the series of 
invoking procedures. In this case, the 
destination of the GO TO must be speci- 
fied by a label variable. If one of 
the terminated procedures has been 
invoked as a function reference in an 
expression, the evaluation of the ex- 
pression is discontinued. 



E10GRAM_TERMINATION 

A program is terminated when one of the 
following conditions occurs: 

1. Control reaches a RETURN statement or 
the final END statement in the main 
procedure. This is the normal termina- 
tion of a program. 

2. An error condition arises from which 
the system cannot recover. In this 
case, the standard system action 
results in a return of control to the 
Monitor program. 



Storage Allocation 

Any name (or variable) that represents a 
data item, actually represents the location 
in main storage where that data item is 
recorded. The compiler analyzes the attri- 
butes of a variable to determine the length 
of the storage area that is needed and when 
it will have to be available. 



Automatic_Stora_e 

If during execution of a single procedure, 
but nowhere else in the program, a 100- 
character field is required for the vari- 
able TABLE, the space need not actually be 
allocated until execution of that procedure 
begins. If the value of TABLE is not 
needed when the procedure is invoked again, 
there is no need to keep the space reserved 
after execution of the procedure is com- 
pleted. The storage area can be used for 
other purposes. 

Such dynamic use of main storage is 
called automatic allocation. Variables of 
the automatic storage class are declared 
with the AUTOMATIC attribute. They are 
allocated storage space when the procedure 
is invoked and this storage space is freed 
when the procedure is completed. Once a 
storage area is freed, the value of the 
corresponding variable is lost. 

All variables that have not been expli- 
citly declared with a storage class attri- 
bute are assumed to have the AUTOMATIC 
attribute, with one exception: any vari- 
able that has the EXTERNAL attribute is 
assumed to have the STATIC attribute, 

Based_St.ora.vie 

A variable of the based storage class is 
declared with the BASED attribute; you 
associate a based variable with storage by 
means of a READ or LOCATE statement with 
the SET option or by means of the ADDR 
built-in function. This causes the attri- 
butes of the based_variable to be applied 
to the main storage area "pointed to" by a 
E2i_£er_variable associated with the based 
variable. 



When a location in main storage has been 
associated with a variable, the storage is 
said to be allocated to the variable. 
Allocation for a given variable may take 
place dynamically, that is, during execu- 
tion of a procedure, or statically, that 
is, before execution of a program. 



EYNAMIC__LL0CATI0N 

The fact that certain variables are used in 
one procedure of a program and not in 
others, makes it possible to allocate 
storage dynamically, that is, to allocate 



The pointer variable can be manipulated 
so that the attributes of the based vari- 
able apply to different storage areas. 
That is, the value of the pointer variable 
(which represents an address) can be 
changed so that the storage area pointed to 
by the old pointer value is no longer asso- 
ciated with the based variable. The attri- 
butes of the based variable now apply to 
the storage area pointed to by the new 
value of the pointer variable. 

You will find a complete discussion of 
this topic in the section Based_Variables 
and Pointer Variables. 
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STATIC_ALLOCATION 

Whenever the value of a variable must be 
saved between different invocations of the 
same procedures, storage for that variable 
has to be allocated statically, that is, 
storage is allocated before execution of 
the program and remains allocated through- 
out the entire duration of the program. 
For a detailed description of the EXTERNAL 
attribute, refer to the following section 
Recognition_of _Names) . 

Static_Storac[e 

All variables of the static storage class 
have the STATIC attribute. Variables with 
the EXTERNAL attribute must always be of 
the static storage class. For such 
variables, STATIC is the default storage- 
class attribute and need not be explicitly 
declared. 

Consider the following example: 

CNTRL: PROCEDURE OPTIONS (MAIN) ; 

DECLARE X FIXED (5,0) INIT (1) 
STATIC, 
Y FIXED (5,0) INIT (1) 

STATIC EXTERNAL, 
Z FIXED (5,0) INIT (1) 
STATIC; 



CALL OUTP; 



END; 
OUTP: PROCEDURE; 

DECLARE X FIXED (5,0) INIT (1) 
STATIC EXTERNAL, 
Y FIXED (5,0) INIT(1) STATIC 
EXTERNAL; 



space associated with X remains allocated 
to X throughout the duration of the 
program. 



INITIAL_DATA 

Variables, whether main storage space is 
allocated to them dynamically or statical- 
ly, may be given initial_values at the time 
of storage allocation. 

Static variables are initialized only 
once, that is, before execution of a pro- 
gram begins. Automatic variables are re- 
initialized at each activation of the 
declaring procedure. 

Note: The INITIAL attribute may be speci- 
fied only for element variables, elementary 
names in structures, and arrays. If speci- 
fied for arrays, however, these must not 
belong to the AUTOMATIC storage class. It 
cannot be specified for STATIC label 
variables. 



Prologues and Epilogues 

Each time a procedure is activated, certain 
activities must be performed before control 
reaches the first executable statement in 
the procedure. These activities are called 
a E£°.i°gue. Similarly, when a procedure is 
terminated, certain activities must be per- 
formed before control can be transferred 
out of the procedure. These activities are 
referred to as an epilogue. 

Prologues and epilogues are set up by 
the compiler and not by the programmer. 
They are discussed here because knowledge 
of them may assist you in improving the 
performance of your programs. 



X = X + 1 ; 

END; 

Before execution of the program begins, 
all static variables are allocated main 
storage space. Thus, in the above example, 
X, Y, r and Z are allocated storage and 
initialized to 1 when the program is loaded 
into main storage. Note that X in CNTRL 
and X in OUTP are different variables, 
because they have not been declared 
EXTERNAL in both, while Y in CNTRL and Y in 
OUTP refer to the same variable. Before 
execution of OUTP is terminated, X is 
increased by 1 . If OUTP is invoked a 
second time, X has the value 2. Note that 
even though OUTP could be activated and 
terminated several times, X, being STATIC, 
retains its value between each termination 
and re-activation of OUTP. The storage 



PROLOGUES 

A prologue is a routine set up by the com- 
piler and logically attached to the begin- 
ning of a procedure. It is executed as the 
first step after activation of the proce- 
dure. The main activities performed by a 
prologue are: 

• Allocation of main storage for automatic 
variables. 

• Establishment of the inherited ON-units. 

• Allocation of storage for dummy argu- 
ments (which are discussed in the sec- 
tion Arguments_and_Parameters) that may 
be passed at the time another procedure 
is invoked. 
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EPILOGUES • Re-establishment of the ON-units as they 

existed before the procedure was 
An epilogue is a routine set up by the com- activated, 
piler and logically appended to the end of 
a procedure. It is executed as the final 

step before termination of the procedure. • Release of all main storage that has 
The main activities performed by an epilo- been allocated to automatic variables in 
gue are: the procedure. 
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Recognition of Names 
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Note: With the 60-character set there are 
no reserved words. When using the 48- 
character set, you may not use the follow- 
ing operators as identifiers in your pro- 
gram: GT, GE, NE,, LE, LT, NG, NL, CAT, 
NOT, OR, AND, and PT (even though the last 
four identifiers are not used as keywords 
in Model 20 PL/I) . These are fully 
reserved.. No other keywords are reserved. 

It is not necessary for a name to retain 
the same meaning throughout a program. A 
name declared within a procedure has a 
meaning only within that procedure- Out- 
side the procedure it is unknown unless it 
has been declared with the EXTERNAL attri- 
bute and has also been declared in another 
procedure with the same attributes includ- 
ing the EXTERNAL attribute. 

That part of a program in which the 
meaning of a declared name is known, is 
called the sco£e_of_a_name. A name in a 
Model 20 PL/I program can be declared by 

• explicit declaration 

• contextual declaration, or 

• implicit declaration. 



Explicit Declaration 

A name is explicitly declared if you speci- 
fy it: 

• in a DECLARE statement, 

• in a parameter list (that is, the paren- 
thesized list that follows the keyword 
PROCEDURE in a PROCEDURE statement, 

• as a statement label, or 



• as the label of a PROCEDURE statement 
(that is, an entry name) . 

The appearance of a name in a parameter 
list has the same effect as a DECLARE sta- 
tement for that name following the PROCE- 
DURE statement in which the parameter list 
occurs (though the same name may also 
appear in a DECLARE statement in the same 
procedure) . The default assumptions for 
parameters are the same as for other 
variables. 

The appearance of a statement label con- 
stitutes an explicit declaration equivalent 
to the declaration of a variable in a 
DECLARE statement. 

The scope of an explicitly declared name 
is the procedure in which the name has been 
declared. 



Contextual Declaration 

When an identifier that has not been expli- 
citly declared appears 

• to the left of the assignment symbol in 
an assignment statement, or 

• to the left of the assignment symbol in 
a DO statement (or in a repetitive spe- 
cification in a data list) , or 

• in the data list of a GET statement, 

• as a built-in function name, 
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identifier is said to be contextually 
ared. However, a name can only be con- 
ually declared if its name does not 
t with one of the letters I to N. In 
1 20 PL/I, a contextually declared 
tifier is always a scalar arithmetic 
able with the default attributes FLOAT 
MAL(6) AUTOMATIC INTERNAL. This rule 
llustrated by the example below: 



LBL 



PROCEDURE (PAR) ; 

DECLARE N FIXED DECIMAL (5,2); 



A = N + 1 ; 

GET FILE (FL1) EDIT (N,B) (F(7,2), 
E(12,4)); 



END; 
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Built-in Functions 



The name of a built-in function, that is, a 
procedure that is part of the compiler and 
that is invoked by means of a function 
reference, is contextually declared by its 
appearance in the function reference. It 
must not be explicitly declared by means of 
a DECLARE statement. 

Exception: The DATE built-in function must 
be explicitly declared in the invoking pro- 
cedure by means of a DECLARE statement and 
with the attribute BUILTIN. 

Note_l: The name of a built-in function 
may be used in a procedure to describe an 
item other than that function. In this 
case, it must not appear in a function 
reference in that procedure. Consider the 
following statements: 

DCL SIN (10) ; 



X = SIN (5) ; 

In this example, SIN is explicitly declared 
to be an array of 10 data elements. When 
the statement X=SIN (5) ; is evaluated the 
array element and not the built-in function 
SIN is taken,. The explicit declaration 
takes recedence over the contextual 
declaration. 



Implicit Declaration 



appears in a program and is not 
or contextually declared, it is 
implicitly declared. The scope 
icit declaration is INTERNAL, and 
efault an arithmetic variable 
ttributes FLOAT DECIMAL (6) AUTO- 
te, however, that the name of an 

declared variable must not start 
f the letters I to N. 



An implicitly declared variable can only 
obtain a value if it appears as an argument 
in a procedure invocation. There is no 
other way for an implicitly declared vari- 
able to obtain a value. Consider the fol- 
lowing example: 
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ALPHA: PROCEDURE; 



D = E; 

CALL BETA (C) ; 

A = C + 1 ; 



END; 
BETA: PROCEDURE (X) ; 

DCL X FLOAT DECIMAL (6); 
X = 52; 



END; 

In the above example, E in procedure 
ALPHA is an implicitly declared variable 
that cannot assume any value. The variable 
C which appears as an argument in the CALL 
invoking BETA, is also an implicitly 
declared variable. In BETA, however, the 
argument C, represented by the parameter X, 
is explicitly declared and given a value. 
Thus, when BETA returns control to ALPHA 
and the instruction A = C + 1 is executed, 
C has been given a value, since both C and 
X refer to the same data item in main 
storage. 

Note: The attributes associated with a 
name comprise those explicitly, contextual- 
ly, or implicitly declared, as well as 
those assumed by default. The default for 
each attribute is given in Part II under 
Attributes. 



INTERNAL and EXTERNAL Names 

The scope of a name declared with the 
INTERNAL attribute is the procedure in 
which it is declared. A declaration of 
that name in another procedure refers to a 
different item with a different scope. 

A name with the EXTERNAL attribute may 
be declared more than once in the same pro- 
gram, in different procedures. All 
declarations of the name that specify the 
EXTERNAL attribute refer to the same item. 
The scope of the name is the sum of the 
scopes of its individual declarations 
within the program. 

Since these declarations all refer to 
the same thing, they must have the same set 
of attributes. It may be impossible for 
the compiler to check this, since the 
declarations appear in different proce- 
dures; therefore, take care to ensure that 
different declarations of the same name 
with the EXTERNAL attribute have matching 
attributes (including the INITIAL attri- 
bute, if present) . 
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In Model 20 PL/I, the length of a name 
with the EXTERNAL attribute is restricted 
to six characters, This restriction also 
applies to names that are EXTERNAL by 
default, such as file names and entry names 
of procedures. 



Multiple Declarations and Ambiguous References 

Two or more declarations of the same iden- 
tifier within the same procedure constitute 
a multiple_declaration, unless all but one 
of the identifiers is declared within stru- 
ctures in such a way that name qualifica- 
tion can be used to make the names unique. 

Two or more declarations anywhere in a 
program of the same identifier with dif- 
ferent attributes and with the EXTERNAL 
attribute constitute a multiple decla- 
ration, that is, a name declared with the 
EXTERNAL attribute in different procedures 
must have identical attributes in all pro- 
cedures in which it is declared EXTERNAL. 

Multiple declarations are errors. 

A name need have only enough qualifica- 
tion to make the name unique. An ambiguous 
reference is a name with insufficient qua- 
lification to make the name unique. 



The following examples illustrate both 
multiple declarations and ambiguous 
references: 



DECLARE 1 A, 2 C, 2 D, 3 E; 
DECLARE 1 B, 2 A, 3 C, 3 E; 
A.C = D.E; 

In this example, A.C refers to C in the 
first declaration because C in the second 
declaration has another complete name qua- 
lification B.A.C; A.C is a unique qualified 
reference; D.E refers to E in the first 
declaration. 

DECLARE 1 A, 2 B, 2 B, 2 C, 3 D, 2 D; 

In this example, B has been multiply 
declared. A.D refers to the second D, 
since A.D is a complete qualification of 
only the second D; the first D would have 
to be referred to as A. CD. 

DECLARE 1 A, 2 B, 3 C, 2 D, 3 C; 

In this example, A.C is ambiquous because 
neither C is completely qualified by this 
reference. 

DECLARE 1 A, 2 A, 3 A; 

In this example, A refers to the first A, 
A. A refers to the second A, and A. A. A 
refers to the third A. 

DECLARE X; 

DECLARE 1 Y, 2 X, 3 Z, 3 A, 
2 Y, 3 Z, 3 A; 

In this example, X refers to the variable 
declared in the first DECLARE statement. A 
reference to Y.Z is ambiguous; Y.Y.Z refers 
to the second Z; and Y,X.Z refers to the 
first Z. 
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Data Transmission 



PL/I provides input and output statements, 
which cause data to be transmitted between 
main storage and an external storage 
medium.. Transmission of data from an 
external storage medium to main storage is 
called input, and transmission of data from 
main storage to an external storage medium 
is called output. 

In order to understand the basic con- 
cepts of input and output, it is necessary 
to define the following terms: file, 
volume, block, record, and filename. 

A file is a collection of data on an 
external storage medium. 

Files can be stored on a variety of 
external storage media, such as punched 
cards, reels of magnetic tape, and packs of 
magnetic disks. Despite their variety, 
external storage media have many common 
characteristics that permit standard 
methods of collecting, storing, and trans- 
mitting data. For convenience, thus, we 
use the general term volume to refer to a 
unit of external storage, such as a reel of 
magnetic tape or a disk pack, without 
regard to its specific physical 
composition. 

The data items within a file are 
arranged in distinct j r hy s i ca l groupings 
called blocks. These blocks allow the file 
to be transmitted and processed in portions 
rather than as a unit. For processing pur- 
poses, each block consists of one or more 
logical parts called records, each of which 
can contain one or more data items. 

A block is also called a phy.sica.l_ 
record, because it is the unit of data that 
is physically transmitted to and from a 
volume,. To avoid confusion between a phys- 
ical record and its logical parts, the log- 
ical subdivisions are called logical 
records. 

When a physical record contains two or 
more logical records, the records are said 
to be blocked. Blocking of records often 
permits more compact and efficient use of 
external storage. Consider how data is 
stored on magnetic tape: the data between 
two successive interrecord gaps is one 
block, or physical record. If several log- 
ical records are contained within one 
block, the number of interrecord gaps is 
reduced, and much more data can be stored 
on a full length of tape. For example, on 
a tape with a density of 800 characters/ 
inch and interrecord gaps of 0.6 inches, a 



card image of 80 characters would take up 
0.1 inches. If the records were unblocked, 
each record would require 0. 1 inches, plus 
0.6 inches for the interrecord gap, making 
a total of 0.7 inches. 1:00 records would 
therefore take up 70 inches of tape. If 
the records were blocked, however, at, say, 
10 records to a block, each block of 10 
records would take up 1 inch, plus 0.6 
inches for the gap, which would be a total 
of 1.6 inches. Thus, 100 records would now 
occupy 16 inches of tape only; this is less 
than 25 percent of the amount needed for 
unblocked records. 

Most data processing applications are 
concerned with logical records rather than 
physical records. Therefore, the input and 
output statements of PL/I generally refer 
to logical records; this allows the pro- 
grammer to concentrate on the data to be 
processed, without being directly concerned 
with its physical organization in external 
storage. 

To be able, now, to deal with the data 
items of a file, that is, to read them into 
main storage or to write them onto the 
external storage media, a filename has to 
be associated with a file. You do this in 
your program. 

A fii§H§.IQ§ is "the symbolic reference, 
within a program, to a file stored on an 
external medium. 

You associate a filename with a file by 
declaring the filename for the file in your 
program and by specifying attributes that 
describe the file and the manner in which 
it will be handled. For example, the INPUT 
attribute specifies that a file is to be 
read; OUTPUT specifies that a file is to be 
written. Unlike a file, however, a 
filename has significance only in a pro- 
gram; it does not exist external to the 
program. For example, if you use the same 
file again, you may specify a different 
filename and partly different attributes 
for it. 



Types of Data Transmission 

There are two types of data transmission 
you can use in a PL/I program, stream- 
oriented transmission and record-oriented 
transmission. 

In stream_oriented_tra.nsmission, the 
data in the file is considered to be a con- 
tinuous stream of data items in character 
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File Declarations 

To allow a source program to deal primarily 
with the logical aspects of data rather 
than with its physical organization in a 
file, PL/I employs a symbolic representa- 
tion of a file, the filename. 

PL/I requires a filename to be declared 
and allows the characteristics associated 
with that filename to be described by key- 
words called file_att ributes. The DECLARE 
statement specifying the filename and the 
associated attributes is referred to as 
file declaration. 



FILE ATTRIBUTES 



Although data in the file is in record 
format, in stream transmission such organi- 
zation is ignored within the program and 
the data is treated as though it actually 
were a continuous stream of individual data 
items. 



In record- oriented_ transmission, data in 
the file is considered to be a collection 
of discrete logical records, recorded in 
any format acceptable to the computer. No 
data conversion is performed during record 
transmission; on input, it is transmitted 
exactly as it is recorded in the file; on 
output, it is transmitted exactly as it is 
recorded internally. 



The following lists show file attributes 
that are applicable to each type of data 
transmission: 



The input and output stat 
record-oriented transmission 
WRITE,, REWRITE and LOCATE. 
WRITE, and REWRITE statement 
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Note that although records may be 
blocked, in which case actually the 
physical record is transmitted to or from 
the file as an entity, each data transmis- 
sion statement in record I/O is concerned 
with a logical record. Blocked records are 
deblocked automatically. 

The following discussion of filenames 
and file attributes will be of particular 
interest to a programmer using record- 
oriented transmission. File handling is 
simpler when using stream-oriented trans- 
mission, and fewer attributes are applic- 
able to files read or written by stream- 
oriented transmission. 



Stream_Transmission 
FILE 

STREAM 

INPUT 

OUTPUT 

PRINT 

ENVIRONMENT 



2§cord_Transmission 

file" 

RECORD 

INPUT 

OUTPUT 

UPDATE 

SEQUENTIAL 

DIRECT 

KEYED 

BACKWARDS 

ENVIRONMENT 



A detailed description of each of these 
attributes appears in Part II, Attributes. 
Following is a brief description of each 
attribute and its use in a file 
declaration. 

The_FILE_Attribute 

The FILE attribute states that the identi- 
fier (or name) associated with FILE is a 
filename. For example, MASTER is declared 
to be a filename in the following 
statement: 

DECLARE MASTER FILE 

The FILE attribute must be explicitly 
declared for every filename, and it must 
always be the first attribute declared in i 
file declaration. 

ALTERNATIVE AND ADDITIVE ATTRIBUTES 
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I 1 1 1 

IGroup | Alternatives | Default | 
y + + ^ 

ITransmission 1 STREAM \ RECORD | STREAM | 

| Function | INPUT | OUTPUT | UPDATE | no default | 
1 Access | SEQUENTIAL | DIRECT | SEQUENTIAL | 

i j j j 

Figure 7. Groups and Default Attributes for Alternative File Attributes 



PL/I provides three groups of alterna- 
tive file attributes. Each group is dis- 
cussed individually. The groups and the 
default for each alternative file attribute 
is shown in Figure 7. 

Note: No default is applied for the func- 
tion attributes; one of them must be speci- 
fied in each file declaration. The scope 
of a filename must always be EXTERNAL. The 
EXTERNAL attribute can be explicitly 
declared in a file declaration. If it is 
not declared, it is assumed by default. 

An additive__attribute is one that must 
be stated explicitly or is implied by 
another explicitly stated attribute. The 
ENVIRONMENT attribute must be declared 
explicitly with every filename. An addi- 
tive attribute can never be applied by 
default. The additive attribute KEYED is 
implied by the DIRECT attribute. 

The additive attributes are: 

PRINT 
BACKWARDS 
KEYED 
ENVIRONMENT 



The_STREAM_and_RECORD_Attributes 

The STREAM and RECORD attributes describe 
the type of data transmission (stream- 
oriented or record-oriented) to be used in 
input and output operations for the file. 

The STREAM attribute causes the file 
associated with the filename to be treated 
as a continuous stream of data items 
recorded in character format. 

The RECORD attribute causes the file 
associated with the filename to be treated 
as a sequence of logical records, each 
record consisting of one or more data items 
recorded in any format. 

DECLARE MASTER FILE RECORD 
DECLARE DETAIL FILE STREAM 



Ihe_INPUT^_OUTPUT A _and_UPDATE_Attributes 

The function attributes determine the 
direction of data transmission. The INPUT 



attribute applies to files that are to be 
read only. The OUTPUT attribute applies to 
files that are to be created or extended, 
and hence are to be written only. The 
UPDATE attribute describes a file that can 
be used for both input and output; it 
allows records to be inserted into an 
existing file and other records already in 
that file to be altered. 

DECLARE 

DETAIL FILE RECORD INPUT 

REPORT FILE STREAM OUTPUT 

MASTER FILE RECORD UPDATE 



The_SE^UENTIAL_and_DIRECT_Attributes 

The access attributes are used only in con- 
junction with the RECORD attribute and 
describe how the records in the file are to 
be accessed, sequentially or directly. 
STREAM transmission is always sequential. 

The SE£UENTIAL_attribute specifies that 
physically or logically successive records 
in the file are to be accessed 
sequentially. 

DCL PAYROLL FILE RECORD INPUT SEQUENTIAL 
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DCL MASTER FILE RECORD UPDATE DIRECT 
[KEYED] 

The_PRINT_ Attr ibute 

The PRINT attribute applies only to files 
with the STREAM and OUTPUT attributes. It 
indicates that the file is eventually to be 
printed, that is, the data is to appear on 
printed pages, although it may first be 
written on some other medium. The PRINT 
attribute specifies that the print lines 
are to be created with the first character 
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position reserved for a printer-control 
character, which is inserted automatically. 

DCL OUT^F FILE STREAM OUTPUT PRINT 

The_BACKWARDS_At tribute 

The BACKWARDS attribute indicates that a 
file is to be accessed in reverse order, 
beginning with the last logical record and 
ending with the first logical record. The 
BACKWARDS attribute can be used only in 
connection with the RECORD SEQUENTIAL, and 
INPUT attributes and only with files on 
magnetic tape. 

DCL IN_FLE FILE RECORD INPUT SEQUENTIAL 
BACKWARDS 

The_KEYED_At tribute 

The KEYED attribute is used only in connec- 
tion with INDEXED files. It indicates that 
each record in the file has a key and can 
be accessed using one of the key options 
(KEY or KEYFROM) of data transmission 
statements. 



ties that were used during the opening of 
the file. 

Model 20 PL/I provides two statements, 
OPEN and CLOSE, to perform these functions. 
All files for which RECORD transmission has 
been specified must be explicitly opened 
before any data can be transmitted. How- 
ever, files for which STREAM transmission 
has been specified, need not be opened 
explicitly. If you do not specify an OPEN 
statement for such a file, the file is 
opened automatically when the first GET or 
PUT is executed; this form of opening is 
referred to as implicit opening. Automatic 
preparation is exactly the same as if an 
explicit OPEN had been executed before the 
GET or PUT. With both STREAM and RECORD 
transmission, all files that have not been 
closed before completion of a program will 
be closed automatically upon completion of 
the program. With the exception of INDEXED 
files, all files that have been explicitly 
closed may be reopened. 

The following discussions show the 
effect of OPEN and CLOSE statements. 



DCL REPORT FILE INPUT DIRECT KEYED 

The use of keys is discussed in detail 
in Part III, under Input/Output. 

The_ENVIRONMENT_At tribute 

The ENVIRONMENT attribute specifies infor- 
mation about the physical organization of 
the file associated with a filename. These 
characteristics are indicated in a paren- 
thesized op_tion_list in the ENVIRONMENT 
attribute specification. They are not part 
of the PL/I language, but are defined to be 
recognized by a specific compiler. The 
option list for the Model 20 PL/I Compiler 
is discussed in Part III, under 
lIlEM t/0 u tpu £ • 

DCL OUTPUT FILE STREAM OUTPUT PRINT 
ENVIRONMENT (option-list) ; 

Note: As stated earlier in this section, 
each file must be explicitly declared; the 
FILE attribute and the ENVIRONMENT attri- 
bute must appear in every file declaration. 



Qpening and Closing Files 

Before the data of a file can be trans- 
mitted by input or output statements, cer- 
tain preparative actions must be taken, 
such as checking for the availability of 
the external storage medium, and position- 
ing the medium. Such activity is known as 
opening a file. Also, when processing is 
completed, the file must be closed. Clos- 
ing a file involves releasing the facili- 



The_OPEN_Statement 

Execution of an OPEN statement causes one 
or more files to be opened explicitly. The 
OPEN statement has the following basic 
format: 

OPEN FILE (filename) [option-list] 

[, FILE (filename) [option-list]]...; 

The OPEN statement is executed by rou- 
tines that are loaded dynamically by the 
system at the time the OPEN statement is 
executed. 

For a file that has to be opened expli- 
citly, the OPEN statement must be executed 
before any I/O statements are executed for 
the same file. 

The_CLOSE_Statement 

The basic format of the CLOSE statement is: 

CLOSE FILE (filename) 

[ ,FILE (filename) ]....; 

Executing a CLOSE statement dissociates 
the specified filename from the file with 
which it became associated when the file 
was opened for, say, input. When using the 
same file again for, say output, another 
file declaration has to be made for it 
before it can be accessed. 

Note: Closing an already closed file or 
opening an already opened file has no 
effect. 
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Environmental Considerations for Data Files 

The PL/I object program produced by the 
Model 20 PL/I compiler is designed to be 
executed under control on the Model 20 Disk 
Programming System (DPS) . The DPS provides 
data management facilities that control the 
organization, location, storage, and 
retrieval of files. The PL/I program calls 
upon these facilities when it is being 
executed. The following discussions 
describe the relationship between the input 
and output statements of a PL/I program and 
the various files organizations supported 
by the data-management facilities of the 
DPS. 



DEVICE_INDEPENDENCE_OF_INPUT_AND_OUTPUT 
STATEMENTS 

The input and output statements of a Model 
20 PL/I program are concerned with the log- 
ical organization of a file and not with 
its physical characteristics. 
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I/O statements are device-independent to 
a large extent. This characteristic of 
PL/I allows you to write a program without 
any specific knowledge of the I/O devices 
that will be used for its execution. 



The_ENVIRONMENT_ Attribute 

The ENVIRONMENT attribute provides informa- 
tion about the physical organization of the 
associated file. This information allows 
the compiler to determine the method of 
accessing the file. 



For the Model 20 PL/I Compiler, the 
ENVIRONMENT attribute has the following 
general form: 

[ CONSECUTIVE! 
ENVIRONMENT ( L INDEXED J 
( F (blocksize [ ,recordsize ])} 
} V (maxblocksize) \ 

I U (maxblocksize) ) 

[ BUFFERS ({ 1 | 2}) ] 
MEDIUM (symbolic-device-address, 
device-type) 
[ CTLASA] 
[LEAVE] 
[NOTAPEMK] 
[NOLABEL] 
[VERIFY] 

[KEYLENGTH (decimal- integer-constant) ] 
[ EXTENTNUMBER (decimal-integer-constant) ] 
[OFLTRACKS (decimal-integer-constant) ] 
[KEYLOC (decimal-integer-constant) ] 
[ ALTTAPE] 
[NOWRITE]) ; 

The individual options of the ENVIRON- 
MENT attribute must be separated by at 
least one blank. They are discussed in 
detail in Part III of this publication, in 
the section I npu t,/Ou tp_u t . Examples of com- 
plete file declarations can be found in 
Part III, under Two_Comp.lete_Pro2ramming 
Examples. 

Stream-Oriented and Record-Oriented 
Data Transmission 

As we have discussed earlier in this sec- 
tion, PL/I provides two types of data tran- 
smission, stream-oriented and 
record- oriented. 

With s tr eam-orien t ed_tr ansmission , a 
file is considered to be a continuous 
stream of data items in character format. 
Data items are transferred from the stream 
to program variables or from program 
variables (or expressions) into the stream, 
with appropriate conversion from or to 
character format. Stream-oriented trans- 
mission statements ignore the boundaries 
between records. 

With r ecor d- or i en ted_tr ansmission, a 
file is treated as a collection of logical 
records, each of which consists of one or 
more data items. The data items can have 
any representation, internal or external, 
that is acceptable to the computer, and 
there is no data conversion. Each logical 
record is transmitted as a unit to or from 
either a program variable or a buffer. 

STREAM transmission uses only two input 
and output statements, GET and PUT, which 
get the next series of data items from the 
stream, or put a specified set of data 
items into the stream. In RECORD transmis- 
sion, the corresponding statements are READ 
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and WRITE, which read a logical record from 
the file or write a specified logical reco- 
rd into the file. other record-oriented 
transmission statements are REWRITE and 
LOCATE. 

The same file can be processed at one 
time by STREAM transmission and at another 
time by RECORD transmission; however, the 
file would have to be in character format 
to be acceptable for stream transmission. 

You specify the method of transmission 
for a file by declaring the associated 
filename with either the STREAM or the 
RECORD attribute. 



The data_sp_ecif ication consists of two 
parts: the data_list and the format_list. 
Each must be enclosed in parentheses. 

On input, the data list contains one or 
more variables. Values whose format is 
described in the format list are assigned 
to these variables. On output, the data 
list may, in addition to variables, also 
contain constants and other expressions. 
For each item in the data list, the extern- 
al format that it is to assume is described 
in the format list of the PUT statement. 

The format list contains one or more 
format_items. There are three types of 
format items: 



STREAM-QRIENTED_TRANSMISSION 

The Model 20 PL/I language provides only 
one mode of stream transmission: the edit- 
^±£©5 t ed_mod e . 

Edit-directed transmission uses the 

GET and 
PUT 

statements for input and output. These 
statements require the following 
information: 

1 T The filename associated with the file 
from which data is to be obtained or in 
which data is to be written. 

2. A list of program variables which are 
to receive data items during input or 
from which data items are to be 
obtained during output. This list is 
called a data_list. On output, the 
data list can include constants and 
expressions. 

3. A list containing the format of each 
data item in the stream. This list is 
called a format_list. 

I2£e: For PRINT OUTPUT files, you may spe- 
cify the option PAGE or SKIP instead of or 
in addition to the data list and format 
list. 

For edit-directed transmission, the gen- 
eral format of the GET and PUT statements 
is as follows: 

GET FILE (filename) EDIT (data-list) 
(format-list) ; 



PUT FILE (filename) 

EDIT (data-list) (format-list) 

option 

option EDIT (data-list) (format-list) 



whereby option may either be PAGE or SKIP. 



• <l§£a_format_i terns, which describe wheth- 
er data items in the stream are charac- 
ters or arithmetic values in character 
form : 

• co n t r ol_f or m at _i t ems , which describe 
page-control, line-control, and spacing 
operations; 

• £§S2te_f or mat _i terns , which specify the 
label of a separate statement that con- 
tains the format list to be used. 

(Format lists and format items are dis- 
cussed in more detail in Format_Lists, 
below) . 

For input, data in the stream is consi- 
dered to be a continuous string of charac- 
ters not separated into individual data 
items. The number of characters to be 
assigned to a variable is specified by the 
corresponding format item in the format 
list. The format item also specifies how 
the associated data item is to be stored 
internally in character format or as an 
arithmetic value. 

For output, the value of each item in 
the data list is converted to a format spe- 
cified by the associated format item and 
placed in the stream. 

For either input or output, the first 
data-format item in the format list is 
associated with the first item in the data 
list, the second data-format item with the 
second item in the data list, and so forth. 
If the format list contains fewer format 
items than there are items in the asso- 
ciated data list, the format list is re- 
used; if there are excessive format items, 
they are ignored. Suppose a format list 
contains five data format items and its 
associated data list specifies ten items to 
be transmitted, then the sixth item in the 
data list will be associated with the first 
data format item, and so forth. Suppose a 
format list contains ten da^ta format items 
and its associated data list specifies only 



Data Transmission 59 



five items, then the sixth through the 
tenth format items will be ignored. 

An array variable in a data list is 
equivalent to n data items in the data 
list, where n is the number of data items 
in the array. Each of the data items in 
the array will be associated with a separ- 
ate use of the data format item (consider 
the third example below) . 

Names of major and minor structures must 
not appear im a data list in Model 20 PL/I. 

If a data list is associated with a for- 
mat list that contains control_f ormat 
items, the control format action is 
executed before the next data item is 
paired with the next data_f ormat_item. For 
example, on output, lines or pages are 
skipped before the next item is printed. 

The specified data transmission is com- 
plete when the last item in the data list 
has been processed with its corresponding 
format item. Subsequent format items, 
including control format items, are 
ignored. 

On output, each data item occupies pre- 
cisely the field length specified by its 
corresponding format item in the format 
list. 



characters are to be considered as an 
optionally signed decimal fixed-point con- 
stant and assigned to SALARY. F is the 
data format item for fixed-point arithmetic 
variables. 
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Assume that, for the third example, 
ARRAY has been declared as follows: 

DECLARE ARRAY (4,5) CHARACTER (8) ; 

The example specifies that the first 160 

characters in the data stream are to be 

assigned to the variable ARRAY in character 
format. 



DATA LISTS 



Note: Data in STREAM files is actually 
transferred in blocks. Thus, when a STREAM 
file is closed,, the last block is trans- 
ferred regardless of whether or not it is 
completely filled with data. This may lead 
to unpredictable results since, in this 
case, the end of the data may not coincide 
with the end of the file. You must there- 
fore ensure that the end of the data is 
clearly identified. 

Consider the following examples: 

1. GET FILE (MASTER) EDIT 

(NAME, DATA, SALARY) 

(A (20) , X(2) , A (6) , F(6,2)) ; 

2. PUT FILE (OUTPUT) EDIT 

('INVENTORY=' | | INUM, INVCODE) 
(A (20), F(5)) ; 

3. GET FILE (MASTER) EDIT 

(ARRAY, DATA, SALARY) 
(20(A(8)) ,A(6) , F(6,2)) ; 

The first example specifies that the first 
20 characters in the stream are to be 
treated as a character string (the format 
item A identifies characters) and assigned 
to the variable NAME. The next two charac- 
ters are to be skipped (this is specified 
by the skipping format item X) . The next 
six characters are to be assigned to DATA 
in character format; and the next six 



Edit-directed GET and PUT statements 
require a data list to specify the data 
items to be transmitted. The general for- 
mat of the data list is as follows: 

(element [, element ].•. ) 

The nature of the elements depends upon 
whether the data list is used for input or 
for output. The following rules apply: 

1. On input, a data-list element can be 
one of the following: an element_vari; 
sLfele or an §.££ai_IS£ia ble , or the 

S U BS T R_ps eu do- v ar ia b 1 e . 

2. On output, a data list element can be 
one of the following: an expression, 
an array_yariable. 

3. The elements of a data list must be of 
arithmetic or character-string data 
type. 

4. As shown in the general format, a data 
list must always be enclosed in 
parentheses. 

l§£§iiiive_Specif ications_in_a_Data_List 

Data lists may contain repetitive specifi- 
cations. Repetitive specifications in a 
data list are used for the transmission of 
arrays. The general format of a data list 



60 IBM System/360 Model 20 DPS PL/I 



containing repetitive specifications is as 
follows: 

(element [, element ]... DO 

control-variable = specification) 

where specification has the following 
format: 

expression_1 [TO expression_2] [BY 
expression_3 ] 

Note_2: If both options, TO and BY, are 
present in a data list, TO must occur 
first. Note also that the control variable 
must be an arithmetic element variable. 

Note_2: Repetitive specifications in data 
lists may be nested. 

The expressions in the specification, 
which are the same as in a DO statement, 
are described as follows: 

a) Each expression in the specification is 
an expression. 

b) In the specification, expression_1 
represents the starting value of the 
control variable. Expression_3 repre- 
sents the increment to be added to the 
control variable after each repetition 
of the DO-group. Expression_2 repre- 
sents the terminating value of the con- 
trol variable. 

Consider the following example: 

DO I = 1 TO 10 BY 2 

In this expression, I is the control vari- 
able, 1 is the starting value of the con- 
trol variable (expression_1) , 10 is is the 
terminating value of the control variable 
(expression_2) , and 2 is the increment to 
be added to the control variable after each 
repetition (expression_3) . 

Repetitive specifications in data lists 
may be nested. Each DO portion must be 
delimited on the right with a right paren- 
thesis (with its matching left parenthesis 
added to the beginning of the list element 
to be repeated) . 

When repetitive specifications are 
nested, the rightmost_DO is at the outer 
leyjy._of_nesting "(DO I = 1 TO 2 in the 
example below). 

Consider the following example: 

DCL A (2,5,10) ; 

GET FILE (INPUT) EDIT 

((((A(I,J,K) DO K = 1 TO 10 BY 5) 
DO J = 1 TO 5) DO I = 1 TO 2) ) 
(format-list) ; 



In this example, every fifth element of 
a three-dimensional array of 100 elements 
in main storage is filled with a data item 
from the input stream. Note the four sets 
of parentheses: The outermost set is 
required by the data list; the second set 
is required by the outer repetition, the 
third by the second repetition etc. The 
sequence of elements transmitted is equiva- 
lent to the sequence of elements that would 
be transmitted if following nested DO group 
were executed: 



DO 



I = 
DO 



1 TO 2; 
J = 1 TO 5; 
DO K = 1 TO 10 BY 5; 
GET FILE (INPUT) EDIT 

(A(I,J,K)) (format-list); 
END; 
END; 
END; 

This nested DO-group gives values to the 
elements of the array A in the following 
order: 

A(1,1,1), A(1,1,6), A(1,2,1), A(1,2,6), ... 

Note: Although the DO keyword is used in 
the data list, a corresponding END state- 
ment is not allowed. Note also that a nest 
of repetitions in a GET or PUT statement 
must not contain more than three 
repetitions. 

If a data list element is an array name 
(that is, a name without subscripts) , the 
elements of that array are transmitted 
beginning with the first element in the 
array and proceeding until the last element 
has been transmitted. 

Consider the following example: 

GET FILE (INPUT) EDIT (A) (format-list); 

If we consider A to be declared as 
above, data items from the stream are tran- 
smitted to the elements of A in the follow- 
ing order: 

A (1,1,1), A (1,1, 2) ,A (1,1,3) ,... 
A(1,1,10) ,A(1,2,1) ...A(1,5,10) , 
A (2, 1, 1) , A (2, 1,2) ,.. .A (2,5,10) 

If, in a data list used in an input sta- 
tement for edit-directed transmission, a 
variable is assigned a value, this new 
value is used if the variable appears in a 
later reference in the data list. For 
example: 

GET FILE (INPUT) EDIT 

(N,X, J,SUBSTR(NAME, J, 5) ) (format-list) ; 

When this statement is executed, data is 
transmitted and assigned in the following 
order (assuming X is a two-by-two array) : 
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1. A new value is assigned to N. 

2. Elements are assigned to the array X in 
the order X(1 f 1) r X(1,2), X(2,1), and 
X(2,2) . 

3. A new value is assigned to J. 

4. A substring of length 5 is assigned to 
the string variable NAME beginning at 
the Jth character. 



FORMAT LISTS 

Each edit-directed data list requires its 
own format list. The format list immedi- 
ately follows its associated data list in 
the GET or PUT statement and has the fol- 
lowing general format: 

GET FILE (filename) EDIT 

(data- list) (format- list) ; 

where format list is defined as: 
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n item 

n (format- list) 



,item 
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There are three types of format items: 
data format items, control format items, 
and the remote format item. 

£§ta_format_items specify whether data 
in the stream are characters or arithmetic 
values in character format. 

Q2H£rol_format_items specify page- 
skipping, line-skipping, and spacing opera- 
tions* The page-skipping format item 
(PAGE) can only be used for files having 
the PRINT attribute. The line-skipping and 
spacing format items (SKIP and X, respec- 
tively) can be used for both PRINT and non- 
PRINT files, including input files. 



Note: For files having the attribute 
PRINT, the PAGE and SKIP format items can 
also be used outside the format list as an 
option of the PUT statement. (See the 
description of the PUT statement in Part 
11 r Statements) . 



The remote_format_item allows reference 
to format items specified in a separate 
FORMAT statement elsewhere in the 
procedure. 

Detailed discussions of the various 
types of format items appear in Part II of 
this publication, in the section Edit- 
2i£§cted_Format_Items. The following dis- 
cussions show how you may use format items 
in edit-directed data specifications. 
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converted, where necessary, to the 
S£_E§££§§§Hi§ii2S specified by the 
item and is inserted into the data 



There are three data-format_items: 

• the F-item for fixed-point data, 

• the E-item for floating-point data, and 

• The A-item for character-string data. 

The specifications used with the format 
items are discussed in detail in Part II, 
in the section Edit-Directed_Format_Items. 

The following examples discuss the use 
of format items: 

1. GET FILE (INPUT) EDIT (ITEM) (A (20)); 

This statement causes the next 20 
characters in the file called INPUT to 
be assigned to ITEM, which must be a 
character-string variable. If it is 
not a character-string variable, an 
error results. 

2. PUT FILE (MASKFL) EDIT (TOTAL) 

(F(6,2)) ; 

Assume TOTAL has the attributes FIXED 
(4,2) ; then the above statement speci- 
fies that the value of TOTAL is to be 
converted to the character representa- 
tion of a fixed-point number and writ- 
ten into the output file MASKFL. A 
decimal point is to be inserted before 
the last two numeric characters. The 
number will be right-adjusted in a 



62 IBM System/360 Model 20 DPS PL/I 



field of six characters. Leading zeros 
more than one digit to the left of the 
decimal point will be changed to 
blanks, and, if necessary, a minus sign 
will be placed to the left of the first 
numeric character. If a minus sign 
appears, it will replace one leading 
blank. Consequently, the F(6,2) speci- 
fication will always allow all digits, 
the point, and a possible sign to 
appear. 

3. GET FILE (A) EDIT (ESTIMATE) (E(10,6)); 

This statement obtains the next ten 
characters from the file called A and 
interprets them as a floating-point 
decimal number. A decimal point is 
assumed before the rightmost six digits 
of the mantissa. An actual point 
within the data will override this 
assumption,. The value of the number is 
converted to the attributes of ESTIMATE 
and assigned to this variable. 

4. GET FILE (A) EDIT (NAME, TOTAL) (A (5) , 

F(4,0)) ; 

When this statement is executed, the 
first five characters read are assigned 
to the variable NAME. The next four 
characters containing possible leading 
and/or trailing blanks, are then 
assigned to the variable TOTAL. 

£ontrol_Format_Items 

Control-format items comprise the following 
types: 

• the spacing format item X, 

• the PAGE format item, and 

• the SKIP format item. 

The spacing format item X specifies 
relative spacing in the data stream. It 
can be used with PRINT and non-PRINT files, 
in GET as well as PUT statements. 

The printing format item PAGE can be 
used only for PRINT files and, consequent- 
ly, appear only in PUT statements. It spe- 
cifies that printing is to continue on a 
new page. 

The format item SKIP can be used with 
PRINT and non-PRINT files, in GET as well 
as PUT statements,. For output, it speci- 
fies that printing is to continue on a new 
line (or, with non-PRINT files, output has 
to start with a new logical record) . For 
input,, it specifies that the remainder of a 
logical record (the size of which is speci- 
fied in the file declaration) is to be 
skipped and reading is to continue at the 
beginning of the next one. 



The format items X and SKIP generally 
include decimal integer constants, which 
specify the width of the field to be spaced 
over, or the number of lines or records to 
be skipped. 



The following examples illustrate the 
use of the control format items: 



1. 



GET FILE (IN) EDIT (NUMBER, REBATE) 
(A (5), X(5), A (5)); 

This statement treats the next 15 
characters from the input file IN as 
follows: the first five characters are 
assigned to NUMBER, the next five 
characters are spaced over and ignored, 
and the following five characters are 
assigned to REBATE. 

PUT FILE (OUT) EDIT (PART, COUNT) 
(A(4) , X(2) , F(5)) ; 

This statement places in the file named 
OUT four characters that represent the 
value of PART, then two blank charac- 
ters, and finally five characters that 
represent the integer value of COUNT. 

The following example shows the combi- 
ned use of control format items in an 
output file. 

PUT FILE (OUT) EDIT 

('QUARTERLY STATEMENT') 

(PAGE, SKIP (2) , A (19) ) ; 
PUT FILE (OUT) EDIT 

(ACCT#, BOUGHT, SOLD, PAYMENT, 

BALANCE) 

(SKIP (3) ,A (6) ,X(7) ,F(7,2) ,X(8) r 

F(7,2) ,X(7) , 

F(7,2),X(7),,F(7,2)) ; 
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4. 



Note: The number of lines specified in 
the SKIP format item must not exceed 3. 

The following statements show the use 
of the SKIP and X format items in a GET 
statement. 
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GET FILE (IN) EDIT (PART, SEQUENCE) 
(SKIP,X(1) : ,A(71) ,A(8)) ; 

GET FILE (IN) EDIT (DETAIL) 
(X(19) ,F(15,2)) ; 

The SKIP format item in the first GET 
statement specifies that reading is to con- 
tinue with the next record. The X(1) for- 
mat item specifies that the first character 
of this record is to be skipped and that 
characters 2 to 72 are to be assigned to 
the variable PART, and characters 73 to 80 
to the variable SEQUENCE. 

The second GET statement specifies that 
the first 19 characters of an input record 
are to be skipped, and that the next 15 
characters are to be assigned to the vari- 
able DETAIL. 

Note: Control format items are executed at 
the time they are encountered in the format 
list. Any control-format item that appears 
in the format list but has not yet been 
processed when the data list is exhausted, 
will have no effect. 
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DECLARE SWITCH LABEL; 

GET FILE (IN) EDIT (CODE) (F(1)); 

IF CODE = 1 

THEN SWITCH = L1 ; 

ELSE SWITCH = L2; 
GET FILE (IN) EDIT (W,X,Y,Z) 

(R (SWITCH) ) ; 
L1: FORMAT (4 F (8,3) ) ; 
L2: FORMAT (U E (12,6) ) ; 

SWITCH has been declared to be a label 
variable. The first GET statement reads a 
code. This code is tested and, depending 
on the result, the label variable SWITCH is 
assigned the value L1 or L2. Thus, the 
second GET statement can use either of the 
two FORMAT statements, depending on the 
current value of SWITCH and, hence, depend- 
ing on the code that has been read by the 
first GET. 

Another advantage of the remote format 
item is that it allows many GET/PUT state- 
ments to share the same format list. 



Note: If the format list contains a remote 
format item that is contained in a replica- 
tion nest, the remote format item must not 
be at a depth greater than 2. 



PAGE LAYOUT FOR PRINT FILES 

The overall layout of a page in a file that 
has the PRINT attribute is controlled by 
means of the PAGESIZE option of the OPEN * 
statement. 

For example: 

DECLARE REPORT FILE OUTPUT PRINT 

ENVIRONMENT (option-list) ; 

OPEN FILE (REPORT) PAGESIZE (55) ; 

The specification PAGESIZE (55) indicates 
that each page should contain a maximum of 
55 lines. An attempt to write on a page 
after 55 lines have already been written 
(or skipped) will raise the ENDPAGE condi- 
tion. The standard system action for the 
ENDPAGE condition is to skip to a new page, 
but the programmer can establish his own 
action through use of the ON statement. 

The ENDPAGE condition is raised only 
once per page. Consequently, printing can 
be continued beyond the specified PAGESIZE 
after the ENDPAGE condition has been 
raised. This can be useful, for example, 
if a footing is to be written at the bottom 
of a page. Consider the following example: 

ON ENDPAGE (REPORT) GO TO FOOT; 



FOOT: PUT FILE (REPORT) SKIP EDIT 

(FOOTING) (A) ; 
PUT FILE (REPORT) PAGE; 
N = N + 1; 
PUT FILE (REPORT) EDIT ('PAGE «,N) 

(A,F(3)); 
PUT FILE (REPORT) SKIP (3); 
GO TO NEXT; 
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as part of the character string to separate 
the word from the page number. The F (3) is 
a format item and allows the page number to 
go as high as 999. (Format items are dis- 
cussed in Part II, under £dit-Directed_For- 
13.t_Items) . The final PUT statement causes 
two lines to be skipped, so that the next 
printing will be on line 4. The GO TO 
NEXT; statement transfers control to the 
statement labeled NEXT. 



SKIP,X which may be used with any STREAM 
file 

R which may be used with any STREAM 
file 



RECORD-ORIENTED TRANSMISSION 



The maximum number of characters to be 
printed on each line (i.e., the line size) 
is equal to the fixed-length record size 
specified in the ENVIRONMENT attribute for 
the file minus one. If you try to write 
more than the maximum number of characters 
specified in one line, i.e., without skip- 
ping to a new line or page, the excess 
characters will automatically be placed on 
the next line. 



Files that contain discrete records or 
which are to be created as a collection of 
discrete records, may be manipulated with 
record-oriented input/output statements. 
These statements are READ, WRITE, REWRITE, 
and LOCATE. 

A general description of these state- 
ments is contained in this section. They 
are described completely in Part II, in the 
section Statements. 



The PAGESIZE option can be specified 
only for a file with the PRINT attribute, 
and it can be specified only in the OPEN 
statement. The default value for PAGESIZE 
is 60 lines* 



SUMMARY OF STREAM I/O STATEMENTS 

The following is a summary of the I/O sta- 
tements used with STREAM transmission, 
along with their options, according to file 
attributes (the statements are discussed 
individually in detail in Part II,, under 
Statements) ,. 

STREAM INPUT: 



Each record obtained from a file or 
transferred to a file is defined in terms 
of data attributes of a variable (usually a 
structure) . For input, the record is 
obtained from the input file and assigned, 
without conversion, to the variable. For 
output, the data is transmitted without 
conversion to the output file. 

The variable whose value is transmitted 
from or to a file can be 

(1) an element variable that is 

• not part of an array or structure, 

• not a label or pointer variable; 

(2) a structure of level 1, i.e., a major 
structure. 



GET FILE (filename) EDIT 

(data-list) (format-list) ; 

STREAM_OUTPUT: 

PUT FILE (filename) EDIT 

(data-list) (format-list) ; 

S TR EA M_0 UTPUT_PRINT : 

PUT FILE (filename) 

/EDIT (data-list) (format-list) 

YPAGE 

<SKIP(n) 

JPAGE EDIT (data-list) (format-list) 

VSKIP(n) EDIT (data-list) (f ormat-list)7 

Format lists may contain the following 
format items: 

A, E, F which may be used for any STREAM 
file 

PAGE which may be used only with STREAM 
OUTPUT PRINT files 



RECORD I/O STATEMENTS 

There are four RECORD I/O statements you 
can use for data transmission. They are: 

READ 
WRITE 
REWRITE 
LOCATE 

These I/O statements can be used only in 
combination with options. The options are: 
for the READ statement FILE, INTO, SET, and 
KEY; for the WRITE statement FILE, FROM and 
KEYFROM; for the REWRITE statement FILE, 
FROM and KEY; for the LOCATE statement FILE 
and SET. Each option, its use and its pur- 
pose in the pertinent I/O statement, is 
individually discussed below. 

The type of I/O statement and option (s) 
that you select to transmit a record 
depends on 
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(1) the form in which the file is organized 
on the external medium (CONSECUTIVE or 
INDEXED) ; 

(2) the method you want to use to access 
the file (SEQUENTIAL or DIRECT) ; 

(3) the type of activity for which you want 
to use the file (INPUT, OUTPUT, or 
UPDATE) ; 

(4) the area in main storage which is to be 
allocated to the variable containing 
the record (an I/O buffer set aside by 
the compiler as a result of the BUFFERS 
option in the ENVIRONMENT attribute, or 
a separate area elsewhere in main 
storage) . 

The READ statement with the INTO option 
causes a record to be transmitted from the 
file to a variable allocated in STATIC or 
AUTOMATIC storage. You can use it with any 
INPUT or UPDATE file. In case of blocked 
records, the READ statement provides for 
automatic deblocking, so that in your pro- 
gram, you are always concerned with logical 
records only. 
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The WRITE statement causes a record to 
be transmitted from main storage to the 
file. It can be used with any OUTPUT file, 
and with DIRECT UPDATE, but not with 
SEQUENTIAL UPDATE. For blocked records, 
the WRITE statement causes a logical record 
to be placed into a buffer. Only when the 
blocking of the record is complete, is 
there actual physical output. 

The REWRITE statement causes a record to 
be replaced in an UPDATE file on a direct- 
access storage device. For SEQUENTIAL 
UPDATE files, the REWRITE statement speci- 
fies that the last record read from the 
file is to be rewritten in place. For 
DIRECT UPDATE files, the REWRITE statement 
must specify a key; consequently, any 
record can be rewritten whether or not it 
has first been read. 

The LOCATE statement, which must always 
have the SET option specified, is used to 
create an output record in a buffer. The 
logical record to be created in the output 
buffer is accessed by means of a pointer 
that is automatically set by the SET 
option. For further details refer to the 



SET_Option in this section. The LOCATE 
statement with the SET option can be used 
only with CONSECUTIVE OUTPUT files. 



OPTIONS OF RECORD I/O STATEMENTS 

The options you may use in RECORD I/O sta- 
tements differ according to the attributes 
of the associated file and the purpose of 
the statement. A list of all the allowed 
combinations for each type of file is given 
later in this section. 

Each option consists of a keyword fol- 
lowed by a parenthesized specification. 

Ihe_FILE_Option 

The FILE option (also called the FILE spe- 
cification) specifies the name of the file 
upon which the operation is to take place. 
It must appear as the first option in every 
RECORD I/O statement, and consists of the 
keyword FILE, followed by the filename en- 
closed in parentheses. An example of the 
FILE option is shown in each of the state- 
ments in this section. 

£he_INTO_Op_tion 

The INTO option specifies a variable to 
which the logical record is to be assigned. 
It can be used in the READ statement for 
any type of INPUT or UPDATE file. The 
variable can be a based variable, if the 
associated pointer variable has a value. 
Consider the following statement: 

READ FILE (DETAIL) INTO (REC0RD_1) ; 

This specifies that the next sequential 
record is to be assigned to the variable 

REC0RD_1 . 

lhe_SET_Opt.ion 

The SET option sets a pointer variable so 
that it points to a logical record in a 
buffer. It can be used with the READ sta- 
tement for CONSECUTIVE INPUT or UPDATE 
files. It is also used with the LOCATE 
statement for CONSECUTIVE OUTPUT files. 
Note that it cannot be used with KEYED 
files. Consider the following examples: 

DECLARE REC_ID POINTER; 

DECLARE 1 MASTER_RECORD BASED (REC_ID) , 

2 IDENTIFICATION CHARACTER (10), 
2 NAME CHARACTER (30) , 
2 ADDRESS, 

3 STREET CHARACTER (15) , 
3 CITY CHARACTER (15) , 
3 STATE CHARACTER (15) , 
3 ZIP CHARACTER (5) ; 

READ FILE (MASTER) SET (REC_ID) ; 
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The name MASTER_RECORD is the based 
variable that is used to describe a record 
located in a buffer. Fields of the record 
must conform to the attributes declared for 
MASTER_RECORD. REC_ID is the pointer vari- 
able that identifies the position of MASTER 
RECORD within the buffer. The pointer 
variable is declared explicitly. 



After reading a record from the file 
MASTER, the structure declaration 
MASTER_RECORD is "overlaid" on the buffer 
so that you can access the data in it and 
process them by using the names declared in 
the based structure. The statements 

LOCATE MASTER_RECORD FILE 

(PAYROLL) SET (REC_ID) ; 
MASTER RECORD=PAYRECORD; 
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After setting the pointer in the LOCATE 
statement, you have to assign to the asso- 
ciated based variable the data items in the 
record which is to be stored in the output 
buffer, as shown in the second statement 
above. 

The pointer REC_ID is set to point to 
the location of the based variable 
MASTER_RECORD in the output buffer. Then 
the data items that are to be transmitted 
are assigned to the based variable in the 
assignment statement. 

Both MASTER_RECORD and PAYRECORD must 
have identical structuring and attributes. 



Based variables may be element 
variables, structure variables, or array 
variables. 

The_ZSOM_Qption 

The FROM option must be used in the WRITE 
statement for any OUTPUT file and in the 
WRITE or REWRITE statement for a DIRECT 
UPDATE file. You may also use it in the 
REWRITE statement for a SEQUENTIAL UPDATE 
file. The FROM option specifies the vari- 
able from which the record is to be writ- 
ten. Consider the following statements. 

WRITE FILE (MASTER) FROM (MAS_REC) ; 
REWRITE FILE (MASTER) FROM (MAS_REC) ; 

Both statements specify that the value 
of the variable MAS_REC is to be written 
into the file MASTER. In the case of the 
WRITE statement, it specifies a new record 
in a SEQUENTIAL OUTPUT file. 

The REWRITE statement specifies that 
MAS_REC is to replace the last record read 
from a SEQUENTIAL UPDATE file. 



The_KEY_Op_tion 
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If a REWRITE is executed for an INDEXED 
file you must ensure that the key portion 
of the record is not changed. 

If an INDEXED file is being read sequen- 
tially, the KEY option can be used to posi- 
tion the file at a specific record. Subse- 
quent READ statements without the KEY 
option will cause sequential reading to 
continue from that point in the file. 

Keys for INDEXED SEQUENTIAL OUTPUT files 
must be in ascending sequence. 
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must be specified in the KEYLOC (n) option 
of the ENVIRONMENT attribute. 



SUMMARY OF RECORD I/O STATEMENTS AND 
ASSOCIATED OPTIONS 



The expression in the KEY option must 
result in a valid key. Consider the fol- 
lowing statements: 



This section provides a summary of the 
allowed RECORD I/O statements, along with 
their options, according to file 
attributes. 



READ FILE (MASTER) INTO (PAY_REC) KEY (NAME) ; 
REWRITE FILE (MASTER) FROM (PAY_REC) KEY (NAME) ; 

The first statement specifies that the 
record of the file MASTER with a key ident- 
ical to the value of the variable NAME is 
to be read into the variable PAY_REC. 

The second statement specifies that the 
record of the file MASTER with a key ident- 
ical to the value of the variable NAME is 
to be updated. 
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If a WRITE is executed for a file with 
INDEXED organization, the key value speci- 
fied in the KEYFROM option is moved auto- 
matically to the position in the record 
specified by KEYLOC (in the ENVIRONMENT 
attribute) . 
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WRITE FILE (PAYROLL) FROM (PAY_REC) 
KEYFROM (NAME| | ADDRESS) ; 

This statement specifies that the value 
of PAY_REC is to be written into the loca- 
tion specified by the value of the 
character-string variable NAME concatenated 
with the character-string variable ADDRESS. 
The source_key is to be a concatenation of 
the value of NAME and the value of ADDRESS, 
and is to be written as the recorded_key. 



CO NS ECUT I V E_IN PUT : 

READ FILE (filename) INTO (variable) ; 

READ FILE (filename) SET (pointer-variable) ; 

CONS ECUT IV E_OU TPUT : 

WRITE FILE (filename) FROM (variable) ; 
LOCATE variable FILE (filename) 
SET (pointer-variable) ; 

CO N SEC UTI VE_UPDA TE : 

READ FILE (filename) INTO (variable) ; 

READ FILE (filename) SET (pointer- variable) ; 

REWRITE FILE (filename) ; 

REWRITE FILE (filename) FROM (variable) ; 

IN D E XE D_SEQ.UE NTI A L_I N PUT : 

READ FILE (filename) INTO (variable) 
[ KEY (expression) ]; 

IN D EX ED_S EQU EN T I AL _0 UTP UT : 

WRITE FILE (file-name) FROM (variable) 
KEYFROM (expression) ; 

I N DE XE D_S EQUE NTI AL_U P D ATE : 

READ FILE (filename) INTO (variable) 
[KEY (expression) ]; 

REWRITE FILE (filename) FROM (variable) ; 

IN DEX ED_DIR ECI_IN PUT : 

READ FILE (filename) 

INTO (variable) KEY (expression) ; 

I NDE XED_D I RECT_U PD A TE : 

READ FILE (filename) 

INTO (variable) KEY (expression) ; 

REWRITE FILE (filename) 

FROM (variable) KEY (expression) ; 

WRITE FILE (filename) 

FROM (variable) KEYFROM (expression) ; 



NOTES ON FILE ORGANIZATION AND ACCESS 
METHODS USED WITH RECORD-ORIENTED 
TRANSMISSION 

The following points cover the salient 
environmental factors in the use of RECORD 
transmission : 
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SEQUENTIAL specifies that the acces- 
sing, creation, or modification of the 
records in a file is performed in a 
particular order, that is, from the 
first record of the file to the last 
(or from the last to the first if the 
BACKWARDS attribute has been 
specified) . 

DIRECT specifies that the accessing or 
modification of the records in a file 
is performed in random order. The par- 
ticular record to be operated upon is 
identified by a specified key. 
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Existing records of a SEQUENTIAL UPDATE 
file can be rewritten, modified, or 
ignored, but the number of records can- 
not be increased or decreased. An 
existing record in an UPDATE file is 
replaced through the use of a REWRITE 
statement. 



The FROM option in a REWRITE statement 
for a SEQUENTIAL UPDATE file must name 
the variable from which the data is to 
be rewritten. 



If the READ INTO option is used with a 
CONSECUTIVE UPDATE file and the next 
REWRITE statement does not make use of 
the FROM option, the record in the file 
is not updated. 
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Editing and Character-String Handling 



The data manipulations that can be per- 
formed by arithmetic, comparison and the 
concatenation operations are extended in 
PL/I by a variety of character-string 
handling and editing features. These fea- 
tures are specified by data attributes, 
statement options, built-in functions, and 
the pseudo-variable SUBSTR. 

Following is a general description of 
each feature, along with illustrative 
examples. 
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assume SUBJECT has the attribute 
CHARACTER (1 0) , indicating a character 
string of ten characters. Consider the 
following statement: 

SUBJECT = 'TRANSFORMATIONS'; 

The length of the string on the right is 
fifteen characters; therefore, the string 
will be truncated on the right so that the 
last five characters are lost when it is 
assigned to SUBJECT. This is equivalent to 
executing: 

SUBJECT = 'TRANSFORMA' ; 

If the assigned string is shorter than 
the length declared for the receiving 
character-string variable, the assigned 
string is extended on the right with blank 
characters. Assume that SUBJECT still has 
the attribute CHARACTER (10) . Then the fol- 
lowing two statements assign equivalent 
values to SUBJECT: 

SUBJECT = 'PHYSICS' ; 
SUBJECT = ' PHYSICSbbb' ; 

The letter b indicates a blank character. 



TH1_ASSIGNMENT_STATEMENT 

A simple assignment statement can be used 
for the type of "editing" described above. 

Type_Con version 

Consider the following example: 

DCL A DECIMAL FIXED (5,2), 
PROD DECIMAL FLOAT (8) ; 



A = PROD; 

Assume that PROD has obtained a value in 
a statement preceding the assignment state- 
ment. This value would then be stored in 
PROD according to the attributes declared 
for PROD,. The assignment statement causes 
the value of PROD to be converted to a 
fixed-decimal value and to be stored in A. 

Altering_the_Length_of_Character-String 
Data 

When a character-string value is assigned 
to a character-string variable, it is, if 
necessary, truncated or extended on the 
right to conform to the declared length of 
the receiving variable. For example, 



OTHER_FORMS_OF_ASSIGNMENT 

In addition to the assignment statement, 
PL/I provides two other ways of assignment 
that involve editing. Both of them use GET 
and PUT statements. In one of them actual 
input and output operations are performed, 
while in the other data movement is entire- 
ly internal. 

£§§i2ai§fit_by_STREAM_I/Q 

STREAM I/O operations can be treated as a 
form of assignment, although transmission 
occurs between the internal and external 
storage facilities of the computer. 

Stream-oriented I/O operations provide a 
variety of editing functions that are app- 
lied when data items are read or written. 
These editing functions are similar to 
those of the assignment statement, except 
that any data conversion always involves 
character type: conversion from character 
type on input, and conversion to character 
type on output. 

Note: Record-oriented I/O operations do 
not cause any data conversion of items in a 
logical record when it is transmitted. 
Reguired editing of the record must be per- 
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formed within internal storage either 
before the record is written or after it is 
read. 

4§sig;nment_bx_Usin2_the_STEING_0£tion._in 
the~GET_and~PUT_Statements 

With the STRING option in the GET and PUT 
statements you can cause transmission of 
data between main storage locations rather 
than between the main storage and external 
storage facilities. In GET and PUT state- 
ments, the FILE option, specified by FILE 
(filename) , is replaced by the STRING 
option, as shown in the following general 
format: 

GET STRING (char act er-str in g- variable) 

EDIT (data-list) (format-list) ; 

PUT STRING (character-string-variable) 

EDIT (data-list) (format-list) ; 

The GET_statement specifies that data 
items to be assigned to variables in the 
data list are to be obtained from the spe- 
cified character-string variable. The PUT 
statement specifies that data items of the 
data list are to be assigned to the speci- 
fied character-string variable. 

The STRING option is used with edit- 
directed transmission, which considers the 
character-string variable to be a con- 
tinuous string of characters. This option 
permits data gathering or scattering opera- 
tions to be performed with a single state- 
ment, and it allows stream-oriented proces- 
sing of character strings that are trans- 
mitted by record-oriented statements. 

Consider the following statement: 

PUT STRING (RECORD) EDIT 

(NAME,PAY#,HOURS*RATE) 
(A (12) ,A(7) ,F(8)) ; 
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Frequently, it is necessary to read 
records of different formats, each of which 
carries with it an indication of its format 
in the form of a code. The STRING option 
provides an easy way to handle such 
records; for example: 

READ FILE (INPTR) INTO (TEMP) ; 

GET STRING (TEMP) EDIT (CODE) (F(1)); 



IF CODE t=1 THEN GO TO OTHER_TYPE; 
GET STRING (TEMP) EDIT (X, Y , Z) (X ( 1 ) , 
3 F(10,4)) ; 

The READ statement reads a record from 
the input file INPTR. The first GET state- 
ment uses the STRING option to extract the 
code from the first byte of the record and 
to assign it to CODE using an F-format 
item. The code is tested to determine the 
format of the record. If the code is 1 , 
the second GET statement then uses the 
STRING option to assign the items in the 
record to X, Y, and Z. Note that the 
second GET statement specifies that the 
first character in the string TEMP is to be 
ignored (the X (1) format item in the format 
list) . Each GET statement with the STRING 
option always specifies that the scanning 
is to begin at the first character of the 
string. Thus, the character that is 
ignored in the second GET statement is the 
same character that is assigned to CODE by 
the first GET statement. 

In a similar way, the PUT statement with 
a STRING option can be used to create a 
record within main storage. In the follow- 
ing example, assume that the file OUTPRT is 
eventually to be printed. 

PUT STRING (RECORD) EDIT 

(NAME,PAY#,HOURS*RATE) 

(X(1) ,A(12) ,X(10) ,A(7) ,X(10) ,F(8)) ; 

WRITE FILE (OUTPRT) FROM (RECORD) ; 



Th 
state 
ter a 
able 
"skip 
is pr 
the v 
press 
forma 
cters 
PAY* 
value 
write 



e X ( 
ment 
ssig 
RECO 

two 
inte 
aria 
ion 
t li 

are 
and 
T 

the 



1) in t 

specif 
ned to 
RD is t 

lines" 
d. Fol 
bles NA 
HOURS * 
st spec 

to be 
between 
he WRIT 

record 



he f 
ies 
the 
o be 
, wh 
lowi 
ME a 

RAT 
if ie 
inse 

PAY 
E St 

int 



ormat 
that t 
charac 
a bla 
en the 
ng tha 
nd PAY 
E are 
s that 
rted b 
# and 
atemen 
o the 



list 
he fi 
ter-s 
nk, w 

file 
t, th 
# and 
assig 

ten 
etwee 
the e 
t is 
file 



of the 
rst ch 
tring 
hich m 

event 
e valu 

of th 
ned. 
blank 
n NAME 
xpress 
used t 
OUTPRT 



PUT 
arac- 
vari- 
eans 
ually 
es of 
e ex- 
The 
chara- 

and 
ion 
o 



The PICTURE Specification 

The editing capabilities associated with 
data assignment, namely, conversion to a 
specified data ty^e with accompanying trun- 
cation and/or padding, can be extended by 
use of the picture specification. A pic- 
ture specification consists of a sequence 
of character codes (picture characters) 
that specify editing operations to be per- 
formed on numeric character values. (A 
detailed discussion of each picture charac- 
ter, together with examples of its use, 
appears in Part II of this publication, in 
the section Picture -Spec if ication_Charac- 
ters. The following discussions are con- 
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cerned with general principles that govern 
the use of the picture specification) . 

A picture specification is used to 
describe numeric-chara.cter_da.ta, which is 
data that represents a numeric value. It 
is therefore also referred to as a numeric- 
character variable. 

A picture specification is always en- 
closed in apostrophes and is used with a 
PICTURE attribute in a DECLARE statement: 

DECLARE PAYMT PICTURE ' S999V.99'; 

In addition to the picture character 9 
{which is used to represent a digit) , pic- 
ture specifications can contain other pic- 
ture characters that are used to edit 
numeric-character data. The general func- 
tions performed by these additional picture 
characters are described in Editing 
Nu meric_Char act er_ Data below. 

As opposed to character-string 
variables, for which assignment is always 
from left to right and padding and trunca- 
tion are on the right, assignment to a 
numeric-character variable depends upon the 
location of the assumed decimal point (spe- 
cified by the picture character V) . Values 
assigned to numeric-character variables are 
always point-aligned. 



I_LUES_g__NUM_RIC_CH_RAC__R_VARIABL_S 

The value of a numeric-character variable 
can be interpreted in two ways, either as 
an arithmetic value or as a character- 
string value. 

For a numeric-character variable 
described with a picture specification that 
contains only the picture character 9 (one 
or more times) , the arithmetic value is the 
value expressed by the character string, 
that is, a decimal integer. 

If,, however, editing characters are 
included in the picture specification, the 
arithmetic value and the character-string 
value are usually different. Editing 
characters are actually stored internally 
in the specified positions of the variable. 
The editing characters then are considered 
to be part of the character-string value of 
the variable; they are not, however, a part 
of its ar_th_etic_v_lue, which involves 
only decimal digits, the assumed location 
of a decimal point, and the sign (if 
present) . 

If the value of a numeric-character 
variable is assigned to another numeric- 
character variable or to a coded arithmetic 
variable, only the arithmetic value is 
assigned. In the assignment to a coded 



arithmetic variable (or in the appearance 
of a numeric-character variable in an 
arithmetic-expression operation) , conver- 
sion to coded arithmetic is performed. 

If the value of a numeric-character 
variable is assigned to a character-string 
variable, no actual conversion is neces- 
sary, and any specified editing characters 
are included in the assignment. 

An ordinary character-string variable 
(specified with the CHARACTER attribute) 
can be defined on a numeric-character vari- 
able, using the DEFINED attribute specifi- 
cation. Any reference to the character- 
string variable then is a reference to the 
character-string value of the numeric- 
character variable. For example: 

DECLARE A PICTURE '$999V.99', 

B CHARACTER (7) DEFINED A, 
C DECIMAL FIXED (5,2) ; 

A = 128.76; 

C = A; 

After the constant is assigned to A, its 
§____met_c_value is _28_76_ This is the 
value that is assigned to C (after conver- 
sion to internal coded arithmetic) . The 
character- strin__value of A, however, is 
__28_76_ if it were assigned to a 
character-string variable with a length of 
7 or greater, this is the value that would 
be assigned. The same value, $128.76, is 
the value of B, since a character string 
defined on a numeric-character variable 
represents the character-string value of 
the numeric-character variable. 

No arithmetic variable (except another 
identical numeric-character variable) can 
be defined on a numeric-character variable 
without causing an error. 



EDITING__U_ERIC_CHARAC__R_D_T_ 

The basic picture character of a numeric- 
character field is 9. Consider the follow- 
ing example: 

DECLARE COUNT PICTURE '99999'; 

Although COUNT is a string of five 
characters, it can only contain numeric 
digits; it is a numeric-character variable 
whose value can be interpreted as a five- 
digit unsigned fixed-point decimal integer, 
Unless specified otherwise (with the pic- 
ture character V) , a decimal point is 
always assumed to be at the right end of a 
numeric-character variable. Assume, for 
example, that COUNT as declared above 
appears in the following assignment 
statement : 



COUNT 



123.45; 



72 IBM System/360 Model 20 DPS PL/I 



When the assignment is performed, the 
decimal point of the constant is aligned on 
the assumed point declared for the numeric- 
character variable, and the two rightmost 
digits are lost. Two zero digits are then 
inserted on the left side. The effect of 
the above assignment therefore, is equiva- 
lent to that of the following statement: 



COUNT = 00123; 

With the picture character V, you can 
specify an assumed decimal point to be any- 
where in a numeric-character variable: 

DECLARE TOTAL PICTURE '999V99'; 

Here the value of TOTAL is interpreted 
as a string of five characters representing 
a five-digit unsigned fixed-point decimal 
number with two fractional digits. The 
decimal point of a value assigned to TOTAL 
will be aligned between the third and 
fourth digit positions as specified by the 
picture character V. Consequently, the 
following two assignment statements are 
equivalent : 

TOTAL = 123; 
TOTAL = 123.00; 

Note, however, that TOTAL contains only 
five characters. The picture character V 
does not specify an actual character posi- 
tion in the numeric-character field; it is 
used only to align decimal points. And if 
TOTAL were converted to a character string 
and then printed, no decimal point would 
appear in the printed field; its character- 
string value does not include a decimal 
point, 

A picture specification can contain a 
decimal- point insertion character (. ) . It 
merely indicates that a point is to be 
included in the character representation of 
the value. Therefore, the decimal point is 
part of the character-string value. It 
does, however, not cause decimal-point ali- 
gnment during assignment, since it is not 
part of the arithmetic value. Only the 
picture character V causes alignment of the 
decimal point. For example: 

DECLARE SUM PICTURE '999V. 99'; 

SUM is a numeric-character variable 
representing numbers of five digits with a 
decimal point assumed between the third and 
fourth digits. The actual point specified 
by the decimal-point insertion character is 
not part of the arithmetic value; it is, 
however, part of the character-string 
value. The decimal- point insertion charac- 
ter can appear on either side of the char- 
acter V.. (See Part II,, Picture- 
Specif icat ion_Characters) . 



The following two statements assign the 
same value to SUM: 



SUM = 123; 
SUM = 123.00; 

In the first statement, two zero digits 
are added to the right of the digits 123. 

Note the effect of the following 
declaration: 

DECLARE RATE PICTURE '9V99.99'; 

Let RATE be used as follows: 

RATE = 7.62; 

When this statement is executed, 
decimal-point alignment occurs on the char- 
acter V and not on the decimal-point inser- 
tion character that appears in the picture 
specification for RATE. If RATE were 
interpreted as a character string and then 
printed, it would appear as 762.00, but its 
arithmetic value would be 7.6200. 

Unlike the character V, which can appear 
only once in a picture specification, the 
decimal-point insertion character can 
appear more than once; this allows digit 
groups within the numeric-character data 
item to be separated by points, as is com- 
mon in Dewey decimal notation and in the 
numeric notations of some European 
countries. 

In addition to the decimal- point inser- 
tion character, PL/I provides two other 
insertion characters: comma (,) and blank 
(B) , which are used in the same way as the 
decimal-point insertion character. Consid- 
er the following statements: 

DECLARE RESULT PICTURE ' 9. 999. 999 , V99 ' ; 
RESULT = 1234567; 

The character-string value of result 
would be '1.234.567,00'. 

Note that decimal-point alignment occurs 
before the two rightmost digit positions as 
specified by the character V. If RESULT 
were assigned to a coded arithmetic field, 
the value of the data converted to arith- 
metic would be 1234567.00. 

Besides supplying insertion characters, 
PL/I also provides replacement characters 
that allow zeros in specified positions to 
be replaced by blanks or asterisks. One 
such character is the character Z, which is 
used to replace leading (leftmost) zeros 
with blanks: 

DECLARE TALLY PICTURE 'ZZZ9'; 
TALLY = 0012; 
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The character-string value of TALLY is 
equivalent to the character-string constant 
'bb12' (where the letter b indicates a 
blank character) . 

Other picture characters control the 
appearance of signs and the currency symbol 
($) in specified positions of the numeric- 
character data item,. For example, a dollar 
sign can be inserted to the left of a 
numeric-character item, as indicated in the 
following statements: 

DECLARE PRICE PICTURE '$99V.99'; 
PRICE = 12. U5; 

The character-string value of PRICE is 
equivalent to the character-string constant 
'$12.45'. Its arithmetic value, however, 
would be 1245 with a precision of (4,2), or 
12.45. 

The picture specification can also spe- 
cify floating-point formats. These formats 
are discussed in Part II, Picture^ 
S 2§c if ic a t io n_C h ar a c t er s . 

EliEE°§§_2f^I]iroe^ic-C^a^a^te^_ Variables 

The principal purpose of a picture specifi- 
cation is to edit data that is to be 
printed. For example, in a payroll appli- 
cation, the digits representing an emp- 
loyee's salary might be 0017250. These 
digits would be much more meaningful on a 
paycheck in an edited form, such as $**172. 
50; the asterisks might be used to disco- 
urage an attempt to alter the amount. This 
could be done, for example, with the speci- 
fication ' $****9.99 ' . 

If specified in an arithmetic expres- 
sion, the value of a numeric-character data 
item is converted to coded arithmetic. 
Note, however, that this conversion will 
require the compiler to insert extra cod- 
ing. Note also that any editing characters 
in the picture specification will be disre- 
garded in the conversion. Consider the 
following example: 

DECLARE RESULT FIXED DECIMAL (3,2) , 

COST PICTURE '$9V.99»; 
COST = 1.10; 
RESULT = 2 * COST; 



The character-string value of COST is 
$1.10. The editing characters ($ and .) 
are present in the item. However, when the 
expression 2 * COST is evaluated, the 
arithmetic value of COST is converted to 
coded arithmetic. When the value of the 
expression is assigned to RESULT, the value 
of RESULT will be 2.20 (i.e., 220 with pre- 
cision (3,2)). If RESULT is printed, 
neither the $ symbol nor the decimal point 
will be printed. 



Built-in Functions for Character-String Handling 

PL/I provides a number of built-in func- 
tions for character-string handling that 
add power to the string-handling facilities 
of the language. One of these functions, 
SUBSTR, can also be used as a pseudo- 
variable. Following are brief descriptions 
of the functions (more detailed descrip- 
tions appear_in_Part_II -t _Built-In_F unctions 
§nd_the_Pseudo3Variable_SUBSTR) . 

The CHAR_built-in_f unction converts a 
specified data item to a character string. 
The built-in function allows you to specify 
the length of the converted string and thus 
override the length that would result from 
the standard rules of data conversion. 

The SUBSTR_built-in_function, which can 
also serve as a pseudo-variable represent- 
ing a receiving field, allows a specific 
substring to be extracted from (or assigned 
to, in the case of a pseudo-variable) a 
specified string value. 

The HIGH_built-in_f unction provides a 
string of a specified length that consists 
of repeated occurrences of the highest 
character in the collating sequence. For 
the IBM System/360, the character is hexa- 
decimal FF. 

The LOW_built-in_f unction provides a 
string of a specified length that consists 
of repeated occurrences of the lowest char- 
acter in the collating sequence. For the 
IBM System/360, the character is hexa- 
decimal 00. 



74 IBM System/360 Model 20 DPS PL/I 



Arguments and Parameters 



Data can be referred to in a procedure only 
if the names identifying that data, are 
known within that procedure, that is, if 
the procedure lies within the scope of the 
names. The scope of a name is usually the 
procedure in which it is declared. The 
scope can, however, be extended in one of 
two ways: 



ALPHA: PROCEDURE; 

DCL BETA ENTRY; 
DCL NAME CHAR (20) , 
ITEM CHAR (5) ; 



CALL BETA (NAME, ITEM) ; 



by specifying the EXTERNAL_attribute for 
the name, or 



by £§:§Siliil the name as an arg.um.ent to a 
procedure that is to be activated (or 
invoked) . 



The tyj-e of argument you can pass to an 
invoked procedure may either be a variable 
name or an expression in Model 20 PL/I. 
File names, labels, and entry names cannot 
be passed as arguments. 



Arguments are passed in a parenthesized 
list, called an argument_list, contained in 
the invoking statement, which may be a CALL 
statement or a function reference. Dif- 
ferent names or expressions in an argument 
list are separated by commas. 



Arguments passed to an invoked procedure 
must be accepted by that procedure. This 
is done by the explicit declaration of one 
or more parameters in a parenthesized list 
in the PROCEDURE statement of the invoked 
procedure, A parameter is a name used 
within the invoked procedure to represent 
another name or expression that is passed 
to the procedure as an argument. Each 
parameter in the parameter_list of the 
invoked procedure has a corresponding argu- 
ment in the argument_list of the invoking 
statement. This correspondence is from 
left to right; the first argument corres- 
ponds to the first parameter, the second 
argument corresponds to the second paramet- 
er, and so forth. In general, any 
reference to a parameter within the invoked 
procedure is treated as a reference to the 
Corresponding argument. The number of 
arguments and parameters must be the same. 
Note that, although an argument and the 
corresponding parameter refer to the same 
storage area, they may have different 
names. 

The example below illustrates how para- 
meters and arguments may be used: 



END; 

BETA: PROCEDURE (FIELD, OBJECT); 
DCL FIELD CHAR (20) , 
OBJECT CHAR (5) ; 



PUT FILE (OUT) EDIT (FIELD, OBJECT) 
(A(20) , X(10) , A (5)) ; 

END; 
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Note: The entry name of the invoked proce- 
dure (in the example, BETA) must appear in 
a DECLARE statement with the ENTRY attri- 
bute in the invoking procedure. Excepted 
from this rule are built-in functions, 
which are discussed later in this section. 

The passing of arguments usually 
involves the passing of names and not mere- 
ly of the values represented by these 
names. Storage allocated for a variable 
before it is passed as an argument is not 
duplicated in the invoked procedure. Any 
change of value specified for a parameter 
in the invoked procedure actually is a 
change in the value of the argument in the 
invoking procedure. Such changes remain in 
effect when control is returned to the 
invoking procedure. 

A parameter can be thought of as 
in£i£®££il representing the value that is 
directly represented by an argument. Thus, 
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since both the argument and the parameter 
represent the same value, the attributes of 
a parameter and its corresponding argument 
must be the same. For example, the program 
is in error, if a parameter has the attri- 
bute FIXED and the corresponding argument 
has the attribute FLOAT. 

A name is explicitly declared to be a 
parameter by its appearance in the paramet- 
er list of a PROCEDURE statement. However, 
its attributes, unless the default attri- 
butes apply, must be explicitly stated 
within that procedure in a DECLARE 
statement. 



to the first executable statement fol- 
lowing the statement that invoked the 
procedure. This is considered to be 
the normal return. 

3. Control reaches a RETURN_statement in 
the invoked procedure. This causes the 
same normal return as is caused by the 
END statement. 

4. An error condition encountered in an 
invoked procedure abnormally terminates 
execution of that procedure and of the 
entire program if the error cannot be 
recovered. 



Through the specification of arguments 
and parameters, £rocedures and functions 
can be used throughout a program to perform 
the same operations uj.on many different 
data items whose names may be known only 
within the invoking procedure. 

The difference between a normal proce- 
dure and a procedure referred to as a func- 
tion is that a function usually returns a 
value to the invoking procedure, whereas a 
normal procedure does not return any value 
to the invoking procedure. Functions and 
procedures are invoked by function and pro- 
cedure references, respectively, that may 
or may not contain arguments. 

Note: An exception is the main procedure 
of a program which initially is invoked by 
the system and cannot be called by any 
other procedure in a program. 



Passing Arguments to Procedures 

Arguments are passed to a procedure in the 
invoking CALL_statement, which is known as 
EE22§dure_ref erence. The general format of 
the procedure reference is as follows: 

CALL entry-name {argument 
[ , argument.,. . ]) ; 

Whenever a procedure is invoked, the 
arguments in the invoking statement are 
associated with the parameters of the entry 
point, and control is then passed to the 
invoked procedure. The invoked procedure 
is thus activated, and execution begins. 

Upon termination of an invoked proce- 
dure, control normally is returned to the 
invoking procedure. An invoked procedure 
can be terminated in any of the following 
ways: 

1. Control reaches a GOTO statement that 
transfers control to an external label. 

2. Control reaches the final END_statement 
of the procedure. Execution of this 
statement causes control to be returned 



The following example illustrates how an 
invoked procedure interacts with the proce- 
dure that invokes it: 

A: PROCEDURE; 

DCL READCM ENTRY; 
DCL RATE FIXED (10,3) , 
TIME FIXED (5,2) , 
DISTANCE FIXED (15,5) ; 



CALL READCM (RATE, TIME, DISTANCE) ; 



END; 

READCM: PROCEDURE (W,X,Y); 

DCL W FIXED (10,3) , 
X FIXED (5,2) , 
Y FIXED (15,5) ; 
GET FILE (INPUT) EDIT (W,X,Y) 

(F(10,3) ,F(5,2) ,F(15,5)) ; 



Y = W * X; 

IF Y > THEN RETURN; 

ELSE PUT FILE (OUTPUT) EDIT 

('ERROR READCM') (A (12)) ; 
END; 

The arguments RATE, TIME, and DISTANCE 
are passed to the parameters W, X, and Y. 
Conseguently , in the invoked procedure, a 
reference to W is the same as a reference 
to RATE, X the same as TIME, and Y the same 
as DISTANCE. This means that any change to 
the values of W, X, or Y in procedure 
READCM is a change to the values of RATE, 
TIME, or DISTANCE, respectively, in proce- 
dure A. 



Passing Arguments to Functions 

A function is a procedure that usually 
reguires arguments to be passed to it when 
it is invoked. Unlike a procedure, which 
is invoked by a CALL statement, a function 
is invoked by the appearance of the func- 
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MAINP: PROCEDURE OPTIONS (MAIN) ; 
DECLARE SPROD ENTRY; 



X = Y ** 3 + SPROD (A # B,C) ; 



END; 

In this procedure, the assignment 
statement 

X = Y ** 3 + SPROD (A,B,C) ; 

contains a reference to a function called 
SPROD. The parenthesized list following 
the function name contains the arguments 
that are being passed to SPROD. Assume 
that SPROD has been defined as follows: 



The RETURN_statement usually terminates 
a function and returns control to the 
invoking procedure. Its use in a function 
differs somewhat from its use in a proce- 
dure; in_a_f unction, not only does it 
return control, but it also returns a value 
to the point of invocation. The general 
format of the RETURN statement, when it is 
used in a function, is as follows: 

RETURN (expression) ; 

The expression must be present and must 
represent a single_value. 

It is this value that is returned to the 
invoking procedure at the point of invoca- 
tion. Thus, for the above example, SPROD 
returns either or the value represented 
by U * V * W, along with control to the 
invoking expression in MAINP. The returned 
value then effectively replaces the func- 
tion reference, and evaluation of the 
invoking expression continues. 



ATTRIBUTES_OF_VALUE_RETURNED_M 

You may declare the attributes of the value 
to be returned by a function in two ways: 

1. You can declare them by_default. 

2. You can declare them explicitly follow- 
ing the parameter list in the function 
PROCEDURE statement. 



SPROD: PROCEDURE (U,V,W); 



IF U>V + W 

THEN RETURN (0) ; 

ELSE RETURN (U*V*W) ; 
END; 
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During the execution of SPROD, the IF 
statement is encountered and a test is 
made. If U is greater than V + W, the sta- 
tement associated with the THEN clause is 
executed; otherwise, the statement asso- 
ciated with the ELSE clause is executed. 
In either case, the executed statement is a 
RETURN statement. 



Note that the value of the expression in 
the RETURN statement is converted within 
the function, wherever necessary, to con- 
form to the attributes specified by one of 
the two methods above. 
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The following example gives you an illu- 
stration of how you can declare attributes 
for the returned value in the PROCEDURE 
statement. Assume that the PROCEDURE sta- 
tement for SPROD has been specified as 
follows: 

SPROD: PROCEDURE (U,V,W) RETURNS (FIXED 
DECIMAL) ; 

With this declaration, the value 
returned by SPROD will have the attributes 
FIXED and DECIMAL. These attributes differ 
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from the ones that would be assigned by 
default. To avoid possible error condi- 
tions, you would have to specify this dif- 
ference in the invoking as well as the 
invoked procedure. You can do this with 
the RJTURJS_at tribute. 

lhe_RETURNS_Attribute 

The RETURNS attribute has to be specified 
when a function returns a value that has 
attributes other than the default attri- 
butes FLOAT DECIMAL (6) . It appears in the 
invoking as well as the invoked procedure. 

For the i n vokj. ng__pr o c e du r e , you specify 
it in a DECLARE statement which must con- 
tain the entry__name f the function to be 
invoked and an attributes_list. The attri- 
butes list specifies the attributes of the 
value returned by that function. In the 
invoking procedure the RETURNS attribute 
appears in the following general form: 

DECLARE entry-name RETURNS 
(attributes-list) ; 

The RETURNS attribute specifies that 
within the invoking procedure the value 
returned from the named function is to be 
treated as though it had the attributes 
given in the attributes list. The word 
treated is used because no conversion is 
performed in an invoking procedure upon any 
value returned to it. Therefore, if the 
attributes of the returned value do not 
agree with those in the attributes list of 
the RETURNS attribute, an error will pro- 
bably result. 

Thus, in order to specify to the 
compiler that in MAINP the value returned 
by SPROD is to be handled as a FIXED DECI- 
MAL value, the following declaration must 
be given within MAINP: 

DECLARE SPROD [ENTRY] RETURNS (FIXED 
DECIMAL) ; 



SPROD would have to look as already shown 
above: 

SPROD: PROCEDURE (U,V,W) RETURNS (FIXED 
DECIMAL) ; 

Conclus i ve ly_ , let us state again when 
and where the RETURNS attribute has to be 
specified. It has to be specified 

a) in the invoking_procedure in the DECLARE 
statement together with the entry name 
of the invoked procedure and the attri- 
butes list for the value to be returned; 

b) in the invoked_procedure (which can only 
be a function) in the PROCEDURE 
statement. 

It is important to note some of the 
things that are implied in the above dis- 
cussion. Principally, you should remember 
that during compilation of the invoking 
procedure, there is no way for the compiler 
to check a function procedure to determine 
the attributes of the value it returns. In 
the absence of explicit information, the 
compiler can only assume that the values 
returned will have the default attributes 
DECIMAL FLOAT (6) unless the initial letter 
of the entry name is I through N, in which 
case the RETURNS attribute has to be speci- 
fied. No conversion is performed for 
values returned by a function. Therefore, 
the attributes of the value to be returned 
must be the same in the invoking as well as 
in the invoked procedure. The RETURNS 
attribute must be declared for a function 
that returns any value with attributes not 
consistent with default attributes. 



BUILT-IN_FUNCTIONS 

Similar to function procedures which you 
can write yourself, is a comprehensive set 
of ^re-defined functions called built-in 
functions. 



The ENTRY attribute may or may not be 
specified together with the RETURNS 
attribute. 

For the invoked__££ocedure, you have to 
specify the RETURNS attribute in the PROCE- 
DURE statement, following the parameter 
list. In the invoked procedure, the 
RETURNS attribute appears in the following 
general form: 

entry-name: PROCEDURE (parameter-list) 
RETURNS (attributes-list) ; 

The RETURNS attribute in the PROCEDURE 
statement of the invoked procedure speci- 
fies that the value returned has to have 
the attributes specified in the attributes 
list. Thus, the PROCEDURE statement of 
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Note: Some built-in functions actually are 
compiled as in;:line_code (that is, as 
though the code of the built-in function 
actually appeared within the source pro- 
gram) rather than as procedure invocations. 
Built-in functions can only be referred to 
in a source program by function references. 
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Neither the ENTRY attribute nor the 
RETURNS attribute can be specified for any 
built-in function name. The name appearing 
in a function reference is recognized 
without the need for any further identifi- 
cation; attributes of values returned by 
built-in functions are known by the 
compiler. 

Built-in function names are PL/I key- 
words.. They are not reserved. You can use 
any built-in-function name in your program 
as a name to refer to any data you have 
defined, 

The_ENTRY_Attribute 

The ENTRY attribute specifies that the 
associated identifier is an entry__name. 

The general format of the ENTRY attri- 
bute is as follows: 

DECLARE entry-name ENTRY; 

You must_sp_ecify_ the ENTRY attribute for 
each entry name appearing in 

a) a CALL_statement., 

b) a Iil£Ction_reference referring to a 
function which returns a value with the 
default attributes FLOAT DECIMAL (6), 
that is, a function for which the 
RETURNS attribute has not been 
specified. 

You must_not_sp_ecify the ENTRY attribute 
for any built- in_f unction. 

Consider the following example, which 
illustrates the use of the ENTRY and 
RETURNS attributes: 

A: PROCEDURE; 

DCL B ENTRY, 

FUNCTN ENTRY, 

C RETURNS (FIXED DECIMAL) ; 
DCL V DECIMAL FIXED (4) , 

W DECIMAL FIXED (3) ; 



CALL B; 

X = FUNCTN (Y,Z) ; 



END; 
FUNCTN: PROCEDURE (A, B) ; 



RETURN (A ** B) ; 

END; 
PROCEDURE (E,D) RETURNS (FIXED DECIMAL); 

DCL E FIXED DECIMAL (4) , 

D FIXED DECIMAL (3) ; 



RETURN (E * D) ; 
END; 
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Relationship of Arguments and Parameters 

When a function or procedure is invoked, a 
relationship is established between the 
arguments of the invoking statement or ex- 
pression and the parameters of the invoked 
procedure. This relationship is dependent 
upon whether or not dummy_arg^ments are 
created. 



DUMMY ARGUMENTS 



U = C(V,W) ; 
D = SQRT (U) ; 



END; 
B: PROCEDURE; 
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directly. Therefore, the compiler must 
allocate storage for such values and assign 
an internal name for each. These internal 
names are called dumray_ar^uraents. You can- 
not access these dummy arguments in the 
compiler, but you should be aware of their 
existence because any change to a parameter 
will be reflected only in the value of the 
dummy argument and not in the value of the 
original argument from which it was 
constructed. 



A dummy argument is always created for 
the following cases: 



1. If an argument is a constant. For 
example: 

CALL X(7.5) ; 

2. If an argument is an expression involv- 
ing operators. For example: 

CALL X (A + B) ; 
CALL X ( + A) ; 

3. If an argument is itself a function 
reference containing arguments. For 
example: 

CALL X (SIN (Y)) ; 

4. if an argument is an expression in 
parentheses. For example: 

CALL X ( (A) ) ; 

You may enclose an argument in paren- 
theses, as shown in this example, if 
you want to pass an argument to a pro- 
cedure, but do not want to change the 
value of the argument in the invoked 
procedure. 

In all other cases, the argument name is 
passed directly. The parameter becomes 
identical with the passed argument; thus 
changes to the value of a parameter will be 
reflected in the value of the original 
argument only if a dummy argument is not 
created. 



ARGUMENT_AND_PARAMETER_TYPES 

In general, an argument and its correspond- 
ing parameter may be of any type, with the 
following exceptions: file names, entry 
names and labels. An argument may be a 
pointer provided that the corresponding 
parameter is also a pointer; it may be a 
character string provided that the corres- 
ponding parameter is also a character 
string, etc. However, not all argument/ 
parameter relationships are so clear-cut. 
Some need further definition. Such cases 
are given below. 

If a parameter is an array__name, the 
argument must be an array_name. The data 
attributes of the argument must agree with 
those of the parameter. The bounds of the 
array argument must agree with the bounds 
of the array parameter. 

If a parameter is a structure_name, the 
argument must be a structure_name. The 
relative structuring of the argument and 
the parameter must be the same; the level 
numbers need not be identical. The data 
attributes of the elements of the structure 
argument must match those of the corres- 
ponding elements of the parameter. 

If a parameter is an §lement_variable, 
i.e., a variable that is neither a struc- 
ture name nor an array name, the argument 
must be an expression. If the argument is 
a su bs cr ipt ed_v ar i a bl e , the subscripts are 
evaluated before the subroutine or function 
is invoked and the name of the specified 
element is passed. 

A parameter has no storage class and 
therefore cannot be declared with any 
storage-class attribute. All arguments 
must be either STATIC or AUTOMATIC; they 
cannot be BASED. 

Note that the scale and precision of an 
arithmetic constant passed as an argument 
must be the same as that of its correspond- 
ing parameter. Similarly, the length of a 
character-string constant passed as an 
argument must be the same as that of its 
corresponding parameter. 
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Exceptional Condition Handling 



When a PL/I program is executed, a large 
number of exceptional conditions are 
monitored by the system. These conditions 
are automatically detected whenever they 
arise. Exceptional conditions may be 
errors, such as underflow or an input/ 
output transmission error, or they may be 
£2Hd_itions_that_are_expected but infre- 
quent, such as the end of file or the end 
of a page when output is being printed. 



Each of the conditions for which a test 
may be made has been given a name in PL/I. 
You can use these names to control the 
handling of exceptional conditions. The 
condition names are keywords of the PL/I 
language,. For keywords and descriptions of 
all exceptional conditions, see Part II 
ON Conditions. 



Enabled Conditions and Established Action 

A condition that can occur and cause an 
interrupt and that is being monitored by 
the system, is said to be enabled. Any 
action specified to take place when such an 
enabled condition arises and causes an 
interrupt, is said to be established. 



Condition Prefixes 

Enabling and disabling can be specified for 
certain conditions by a condition prefix. 
A condition prefix is a list of one or more 
condition names, enclosed in parentheses 
and separated by commas, and prefixed to a 
££2£§dure-statement_label by a colon. The 
condition prefix always precedes the 
procedure-statement label. A condition 
name in a prefix list indicates that the 
corresponding condition is enabled within 
the scope of the procedure to whose label 
it is prefixed. The condition names can be 
preceded by the word NO, without a separat- 
ing blank or other delimiter, to indicate 
that the corresponding condition is 
disabled. 



Condition prefixes are effective during 
the execution of all statements within one 
procedure including the END statement. 
However, they are not in effect during the 
execution of any other procedures which may 
be invoked by that procedure. 



Consider the following example: 

(NOCONVERSION, NOFIXED0VERFL0W) : 
A: PROCEDURE; 



The conditions are checked automatical- 
ly, and when they occur, the system will 
take control and perform some standard 
action specified for the condition. All 
conditions are enabled by default, and the 
standard system action is established for 
them. 

The most common condition is the ERROR 
condition, A large number of different 
errors may cause this condition to arise. 
Standard system action for the ERROR condi- 
tion is to terminate the program. 

You may specify in your programs whether 
or not you want some conditions to be 
enabled, that is, whether or not you want 
them to cause an interrupt when they arise. 
If a condition is disabled, occurrence of 
the condition will not cause an interrupt. 

All input/output conditions and the 
ERROR conditions are always enabled and 
cannot be disabled. All of the computa- 
tional conditions may be enabled or dis- 
abled.. You have to explicitly disable them 
if you do not want them to cause an inter- 
rupt when they occur. 



CALL B; 



END; 
(NOCONVERSION) : 
B: PROCEDURE; 



END; 
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The ON-Statement 

A system action exists for every condition, 
and if a condition arises, the system 
action will be performed unless an ON sta- 
tement has been executed specifying an 
alternative action for that statement. 
With the ON statement you can establish the 
action to be taken when an interrupt 
results from an exceptional condition that 
has been enabled, either by default or by a 
condition prefix. 

Note: The action specified in an ON state- 
ment will not be executed if the condition 
has been disabled in a condition prefix. 

The form of the ON statement is: 

ON condition-name { SYSTEM ; |ON-unit } 

(For a full description, see Part II, 
Statements) ,. 

The keyword SYSTEM specifies standard 
system action whenever an interrupt occurs: 

ON FIXEDOVERFLOW SYSTEM; 

It reestablishes standard system action 
for a condition for which some other action 
has previously been established. In the 
statement 

ON FIXEDOVERFLOW GO TO ERROR; 

GOTO ERROR is the ONzHHit. You can use the 
ON-unit to specify an alternative action to 
be taken whenever an interrupt occurs. In 
the above example, ERROR is the label of a 
statement or the first of several state- 
ments that specify the action to be taken, 
for example to try to recover from the 
error or to register the error and continue 
processing. 

An ON-unit must either be the null_sta-- 
tement or a GO TO statement. A null state- 
ment effectively causes the interrupt to be 
ignored and, in general, causes control to 
be returned to the point logically follow- 
ing the point at which the interrupt 
occurred. Thus, the effect of a null ON- 
unit is to say: "When an interrupt occurs 
as a result of this condition, do nothing 
except continue". The above example with a 
null statement would look as follows: 

ON FIXEDOVERFLOW; 

The semicolon (;) is the null statement. 

The use of the null statement is not the 
same as disabling a condition, for two 
reasons: a) a null statement can be speci- 
fied for any condition (except ENDFILE, 
KEY, and CONVERSION) , but not all condi- 
tions can be disabled; b) disabling a con- 



dition, if possible, may save time by 
avoiding any checking for this condition. 
If a null ON-unit is specified, the system 
must still check for the condition, 
transfer control to the ON-unit whenever an 
interrupt occurs, although, in the ON-unit, 
no action other than returning control is 
taken. 



Note: The specific point to which control 
returns from a null ON-unit varies for dif- 
ferent conditions. In most cases, control 
returns to the point that immediately fol- 
lows the operation in which the condition 
arose. The section QN-Conditions in Part 
II gives the point of return for all condi- 
tions for which a null ON-unit can be spe- 
cified. Return from a null ON-unit is a 
normal return. 

If an ON-unit is a GO TO statement, con- 
trol is, when an interrupt occurs for the 
specified ON-condition, transferred to the 
label specified in the GO TO statement, as 
described above. Linkage to the point at 
which the interrupt occurred is thus lost 
and a normal return cannot occur. 



Scope_of_the_ON- Statement 

The ON-statement specifies that a specific 
action is to be taken for a named condi- 
tion, that is, the ON-statement associates 
a condition with a specific action. Once 
this association is established, it remains 
in effect until it is overridden by another 
ON-statement specifying the same condition, 
or until the procedure in which it appears 
is terminated. 

An established_interrupt_action (estab- 
lished by an ON-statement, not a condition 
prefix) passes from a procedure to any pro- 
cedure it invokes, and the action remains 
in force for all subsequently activated 
procedures unless it is overridden by the 
execution of another ON-statement for the 
same condition. If it is overridden, the 
new action, extablished in an invoked pro- 
cedure, remains in force only until that 
procedure is terminated. When control 
returns to the activating procedure, all 
interrupt actions that were established at 
the point of invocation, are reestablished. 
This makes it impossible for an invoked 
procedure to alter the interrupt action 
established for the invoking procedure. 

If more than one ON-statement for the 
same condition appears in the same proce- 
dure, each subsequently executed ON- 
statement overrides the previously estab- 
lished action. Re-establishment is only 
possible through the execution of another 
ON-statement (for example, by transferring 
control to an overridden ON-statement) . 
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Consider the following example 

A: PROCEDURE; 

ON FIXEDOVERFLOW GOTO A_ERR ; 



The ON-statement in procedure A estab- 
lishes the action to be taken for the 
FIXEDOVERFLOW error occurring within A. 
(Note that FIXEDOVERFLOW is enabled by 
default and therefore does not require a 
condition prefix to enable it) . 



CALL B; 



END; 
B: PROCEDURE; 

ON FIXEDOVERFLOW GOTO B_ERR ; 



CALL C; 



The 
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tion specification made in A is 
ver into procedure B, because B is 
y A. Within B, however, the 
tablished in A is overridden by 
ction specification. When proce- 

called, the action established in 
EDOVERFLOW remains active until it 
dden by the first action specifi- 
ich, in turn, is overridden by the 
tion specification in procedure B. 



END; 
C: PROCEDURE; 

ON FIXEDOVERFLOW GOTO C_ERR; 



ON FIXEDOVERFLOW GOTO D_ERR; 



When C returns control to B, the action 
specified for the FIXEDOVERFLOW error in B 
is re-established {ON FIXEDOVERFLOW GOTO 
B_ERR;). When B returns control to A, the 
action specified in A is re-established 
(ON FIXEDOVERFLOW GOTO A_ERR;) . Standard 
system action is taken for all other condi- 
tions enabled by default. 



END; 
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Based Variables and Pointer Variables 



For each identifier you use in your PL/I 
programs, the compiler must be able to 
determine the associated attributes in 
order to generate correct code. 

In addition to determining the type of 
operation, the compiler must be able to 
determine_the_address of each operand. In 
some cases, the compiler must generate code 
that will determine the address when the 
program is executed. The storage class of 
a variable determines the way in which the 
address is obtained. There are three dis- 
tinct classes: 

1. S t a t ic_S t or ag_e : The address of an 
identifier is determined when the pro- 
gram is loaded. 

2. ,4il£oMtic_Stora2e: The address is 
determined upon entry to the procedure. 

3. B as e d_S t o ra c[e : The address is con- 
tained in a pointer variable. The con- 
tents of this pointer variable may 
change during program execution, so 
that the same identifier can have dif- 
ferent addresses at different times. 

It is the third class, based storage, 
with which this section is concerned. 



Pointer Variables 

A special type of variable, the pointer 
variable, is used to locate data in 
storage; that is, the data in storage is 
"pointed to" by the pointer variable. Con- 
sequently, a pointer variable may be 
thought of as an address. 



Based Variables 

A based variable is a description^of_data 
that can be applied to different locations 
in storage, depending upon the value of the 
associated pointer variable. 

Based variables and pointer variables 
are used with record- oriented_input ! /out£ut.. 
They allow you to operate upon records in a 
buffer without allocating storage in addi- 
tion to the buffers. 

With the point er_yariable, you can 

1. explicitly specify the address of a 

record to be operated upon in the buff- 
er, and 



2. locate, in the buffer, the record that 
is to be transmitted by record-oriented 
input/output. 

With the ba sed_ variable , you describe 
the record pointed to by the pointer vari- 
able; that is, the record in the buffer 
pointed to by the pointer variable is 
treated as if it had the attributes of the 
associated based variable. 

When a based variable is declared, it 
must be associated with a pointer that has 
been explicitly declared. The form of the 
declaration is: 

DECLARE identifier BASED 

(pointer-variable) ; 
DECLARE pointer-variable POINTER; 

For example: 

DECLARE P POINTER; 
DECLARE A BASED (P) ; 

Whenever a reference is made to A, the 
address of A will be the value of the asso- 
ciated pointer variable, P in this case. 
For example: 

A = A + 1; 

In this statement, the pointer used to 
determine the address of A will, in both 
cases, be P. 

So long as an associated pointer vari- 
able has a valid value, any reference to 
the based variable will always refer to the 
location in storage identified by the 
pointer variable. 

A restriction imposed by the Model 20 
PL/I compiler is that the pointer name used 
in the declaration of a based variable must 
be an unsubscripted , unqualified element 
variable. Pointer variables must not be 
elements of structures nor of arrays. 



Values of Pointer Variables 

Before a reference can be made to a basec 
variable, a value must be given to the 
pointer associated with it. This can be 
done in any of four different ways: 

1 . with the SET option of a READ 
statement , 

2. with the SET option of a LOCATE 
statement, 
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3. by assignment of the value of another 
pointer, 

4. by assignment of the value returned by 
the ADDR built-in function. 

2M2_.and_.SET 

READ FILE (file-name) SET (pointer) ; 

The READ statement with a SET option which 
can be used only for CONSECUTIVE files, 
causes a record to be read into a buffer 
and the specified pointer variable to be 
set to point to the record in the buffer. 
A based variable, declared with the same 
pointer, can then be used to refer to dif- 
ferent fields of the record. 

A £ased_variable is not a variable for 
which main storage is reserved, but a pat- 
tern which will be overlaid on data in main 
storage pointed to by the associated point- 
er variable; that is, if the based variable 
is a structure variable, the data pointed 
to by the associated pointer is treated as 
if it had the same structuring as the based 
variable. A reference to an element of the 
based variable has the same effect as if 
the record had been read directly into the 
structure described by the based variable. 

When records are blocked, the first 
execution of a READ statement with the SET 
option causes the transmission of a block 
of physical records to a buffer and the 
pointer to be set to point to the beginning 
of the first logical record,. The second 
execution of the READ statement causes the 
pointer variable to be set to point, to the 
location of the second logical record in 
the block already in the buffer. 

When records are unblocked, each execu- 
tion of a READ statement" with the SET 
option causes actual data transmission from 
the file to the buffer. In this case, the 
pointer always has the same value, 

LOCATE_and_SET 

LOCATE variable FILE (filename) SET (pointer) ; 

The LOCATE statement, which must always 
have the SET option and can only be used 
for CONSECUTIVE files,, allocates storage 
for a based variable in an output buffer. 
The action is similar to that of a READ and 
SET, in that the based variable is, in 
effect, overlaid on the buffer,. The LOCATE 
statement sets the pointer variable to 
point to the location that a logical record 
will have in an output buffer after it has 
been assigned to the associated based 
variable. 

When records are blocked, physical 
transmission from an output buffer to an 



output file occurs only after the entire 
block is in the buffer. Therefore, for 
blocked records, a LOCATE statement is 
executed repeatedly before actual data 
transmission occurs; and for each execution 
of a LOCATE statement, a pointer variable 
is set to point to the location of the next 
logical record to be constructed in the 
buffer. 

i§signment_of_Pointer_Value 

pointer-variable = pointer-variable; 

The value of a pointer variable can be 
assigned to another pointer variable by a 
simple assignment statement. Assume that Q 
and P are pointer variables and that P has 
a valid pointer value. 

Q = P; 

In this statement, Q would point to an 
input buffer if P had been set by a READ 
statement, or to an output buffer if P had 
been set by a LOCATE statement. 

A§signment_of_the_ADDR_Function_Value 

The general form in which an ADDR built-in 
function appears in a statements is: 

pointer-variable = ADDR (variable) ; 

The value returned to an ADDR function 
reference is a valid pointer value that 
specifies the location of a data variable 
named as the argument of the function 
reference. For example: 

P = ADDR (A) ; 

Execution of this assignment statement 
will give the pointer variable P a value so 
that it points to the location of the data 
variable A. The value of an ADDR function 
reference can be assigned to a pointer 
variable only. 

The argument of the ADDR function 
reference can be a variable that represents 
an element, an array, an element of an 
array, a major structure, a minor struc- 
ture, or an element of a structure. 

Since the ADDR function can be used to 
set a pointer to point to a nonbased vari- 
able, this facility allows the use of a 
based variable to refer to the value of a 
nonbased variable. 

The data thus pointed to may then be 
referred to by means of the pointer value 
and based variable, provided the attributes 
of the based variable are compatible with 
that of the variable identified by the 
pointer. The rules for the relation 
between an argument and a parameter also 
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apply to the relation between a variable 
identified by a pointer and the based vari- 
able used to refer to it. 



The value of a pointer variable can be 
assigned only to another pointer 
variable. 



Example: 

DECLARE ARRAY (10,10) STATIC EXTERNAL 
FIXED, (P,Q,R) POINTER, 
VALUE BASED (P) FIXED, 
1 GROUP AUTOMATIC, 
2 GROUP1, 

3 A FIXED, 
3 B CHARACTER 
2 GROUP2, 

3 C CHAR ( 1) , 
3 D FLOAT, 
1 DESCRIPTION BASED 
2 A FIXED, 
2 B CHARACTER (2) , 
SWITCH CHAR (1) BASED 

P = ADDR (ARRAY (I, J)) ; 



(2), 



(Q) . 



(3) ; 



This statement assigns a value to the 
pointer P so that it will point to the 
location of the (I,J)th element of 
ARRAY. When using the based variable, 
VALUE it will be overlaid on the 
(I,J)th element of ARRAY. 

P = ADDR (GROUP. A) ; 

Provides for the use of the based 
variable VALUE in referring to 
liROUP. A. 

Q = ADDR (GROUP. GROUP1 ) ; 

Provides for the use of the based 
variable DESCRIPTION in referring to 
the minor structure GROUP. GROUP1 . 

R = ADDR (GROUP. C) ; 

Provides for the use of the based 
variable SWITCH in referring to 

GROUP. C. 



Restrictions on Pointer Variables 

Because a pointer is very closely related 
to an address, its value is strongly depen- 
dent upon the implementation in which it is 
used. In order to reduce implementation 
dependence, some restrictions are made on 
the use of pointer variables. 

1. Pointer variables must not be elements 
of structures or arrays. 

2. Pointer variables must not be operands 
of any operations except the comparison 
operations specified by the operators = 
and i = . 



Pointer variables cannot be used for 
STREAM input and output. When used in 
RECORD input and output, a pointer 
value written as output cannot be 
assumed to point to the same data if it 
is read back in. 



Use of Based Storage and Pointers 

The based storage and pointer handling 
facilities provided by the Model 20 PL/I 
compiler are primarily intended to permit 
processing of records in input and output 
buffers. This can result in a significant 
saving of storage, particularly when many 
different record types exist in the same 
file. 

Many different declarations of based 
variables can be associated with the same 
pointer. The effect of this is that once 
the pointer has been given a value, say by 
a READ statement with a SET option, then 
any of the record descriptions associated 
with the pointer may be used to refer to 
the record in the buffer. For example: 

DECLARE P POINTER; 
DECLARE 1 ISSUE BASED (P) , 

2 CODE CHAR (1) , 

2 PART_NO PIC ' (7) 9' , 

2 QTY PIC ' 9999' , 

2 DEPT PIC '99', 

2 JOB_NO PIC ' (4) 9' , 
1 RECEIPT BASED (P) , 

2 CODE CHAR(1) , 

2 PART_NO PIC ' (7) 9» , 

2 QTY PIC « 9999' , 

2 SUPPLIER PIC ' (5) 9' ; 

READ FILE (TRANS) SET (P) ; 

IF ISSUE. CODE = »R' THEN GOTO RL1; 

IF SUPPLIER>1000 THEN GOTO INHS1; 

In this example, the two record descrip- 
tions ISSUE and RECEIPT are associated with 
the same pointer. Once a record has been 
read and P has been set, the record code 
(CODE) is tested to determine whether a 
record with the structure of ISSUE or that 
of RECEIPT has been read. Depending on the 
result, either record type is processed. 
The records do not require working storage, 
since the pointer refers to a position 
within the buffer. 

The records can also contain variables 
other than character strings and numeric 
character fields. Any number of records 
can be associated with the same pointer. 
When the pointer is qiven a value, all of 
the records will refer to the same storage 
area and will effectively be overlaid. 
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Such overlaying of record descriptions can 
be machine dependent and should be used 
with care. 



array or structure is the same as the ADDR 
of the array or structure itself. 



Pointer Manipulation 

Important for the manipulation of pointer 
variables is the ADDR built-in function, 
which has already been briefly discussed. 
It requires one argument, the name of a 
variable, and it returns a value that 
points to the variable. It can be used to 
find the address of an element variable, an 
array variable, an element of an array, a 
major structure, a minor structure, or an 
element of a structure. 

The argument in the ADDR function 
reference may be the name of a nonbased or 
based variable. 

When using the ADDR function with arrays 
and structures, it is important to note 
that the ADDR of the first element of an 



For example, given the following 
declarations : 

DECLARE P POINTER; 
DECLARE B(10,10) BASED (P) , 
A(10,10) ; 

ADDR(A(1,1)) is the same as ADDR(A), and 
with the following assignment: 

P = ADDR (A) ; 



(1,1) will refer to the first element of 



A. 



When writing your programs, it is 
entirely your responsibility to ensure that 
such references do access meaningful 
storage locations, which must have been 
allocated in some other way and whose 
attributes are correct. 



Based Variables and Pointer Variables 



Part II 



Model 20 PL/I Syatax Rules 



Picture Specification Characters 



Picture specification characters appear in 
a £ICTURE_at tribute. You can use them to 
specify the editing operations to be per- 
formed on the associated data item. A dis- 
cussion of the concepts of picture specifi- 
cations appears in Part I, in the section 
Editina_and_Character-String._Handlin2. 



In Model 20 PL/I, a picture specifica- 
tion always describes a numeric-character 
variable. In the statement 

DCL NUMBER PICTURE '999V. 99'; 
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can also be specified. However, these 
characters are not part of the arithmetic 
value of the numeric character variable, 
although the characters are stored with the 
digits and are considered to be part of the 
character string value of the variable. 
The picture_specification can contain any 
of the picture specification characters 
listed in Figure 8. 



You can use the picture characters in 
these groups in various combinations. 
These combinations depend upon the type of 
data being described by the specification. 
A detailed discussion of these types and 
how they can be described follows below. 



A numeric-character_variable can be con- 
sidered to have two different types of 
value, depending upon its use. They are 

1) its arithmetic value and 

2) its character-string value. 



Category 



Specification 



Representing 



Digit and decimal-point specifiers 



any decimal digit 
assumed decimal point 
and subfield delimiter 



Zero suppression characters 



digit or blank 
digit or * 



— 1 



Numeric signs and currency symbol 
(these are also drifting 
zero suppression characters) 



digit, S, or blank 
digit, ± sign, or blank 
digit, -, or blank 



Insertion characters 



B 



comma 

decimal point 
blank 



-H 



Credit, Debit, and Overpunched signs 



CR 
DB 
T 

R 



CR if field<0 
DB if field>0 
digit overpunched 

by sign 
di^jit overpunched 

by - if field<0 



| Exponent Specifier 
i 



I E (start of exponent) 



Figure 8. Picture-Specification Character 
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The arithmetic_value is the value ex- 
pressed by the decimal digits of the data 
item, the assumed location of a decimal 
point, and possibly a sign. The arithmetic 
value of a numeric-character variable is 
used whenever the variable appears in an 
arithmetic operation or in an assignment to 
a variable with either the FIXED or FLOAT 
attribute. In such cases, the arithmetic 
value of the numeric-character variable is 
converted to internal coded-arithmetic 
representation. The arithmetic value is 
also used in an assignment to another 
numeric-character variable. 



The character-string__value is the value 
expressed by the decimal digits of the data 
item, as well as all of the editing and 
insertion characters appearing in the pic- 
ture specification. The character-string 
value does not, however, include the 
assumed location of a decimal point as spe- 
cified by the picture character V. The 
character-string value of a numeric- 
character variable is used whenever the 
variable appears in a character-string 
operation or in an assignment to a 
character-string variable, or wherever a 
reference is made to a character-string 
variable that is defined on the numeric- 
character variable. 



A picture specification can be made for 
fixed-point or floating-point data. The 
picture specification for a fixed-point 
value contains only one field,, and this 
field can consist of two subfields: an 
integer subfield describing the digits to 
the left of the decimal point in the fixed- 
point value, and a fractional subfield 
describing the digits to the right of the 
decimal point. 

DCL NUMBER PICTURE '999V.99'; 



A major requirement of the picture spe- 
cification for numeric-character data is 
that field must contain at least one pic- 
ture character that specifies a digit posi- 
tion. This picture character, however, 
need not be the digit character 9. Other 
picture characters, such as the zero 
suppression characters (Z and *) , also spe- 
cify digit positions. 



The picture specification for a 
£i2§:iili2~£2illt_value consists of two 
fields: a mantissa field and an exponent 
field. The mantissa field describes a 



fixed-point value, which when multiplied by 
ten raised to the power of the value 
described by the exponent field gives the 
actual value represented by the floating- 
point notation; the mantissa field is spe- 
cified in the same way that a fixed-point 
field is specified. The exponent field 
describes a signed or integer power of ten. 

DCL NUMBER PIC ' 9V . 9999ES99 » ; 



For further details about picture speci- 
fications for floating-point values refer 
to The_Exponent_Specif ier_E in this 
section. 



Digit and Decimal-Point Specifiers 

The picture characters 9 and V are the 
simplest form of numeric-character specifi- 
cations you can use to represent fixed- 
point decimal values. 



9 specifies that the associated field 

position is to contain a decimal digit. 



specifies that a decimal point is 
assumed at this position in the asso- 
ciated data item. However, it does not 
specify that an actual decimal point is 
to be inserted. The integer and frac- 
tional parts of the assigned value are 
aligned on the V character; therefore, 
an assigned value may be truncated or 
extended with zero digits at either end. 
Note that if significant digits are lost 
on the left, the result will be unde- 
fined. If no V character appears in the 
picture specification of a fixed-point 
decimal value or in the mantissa field 
of a picture specification of a 
floating-point decimal value, a V is 
assumed at the right end of the field 
specification. This causes the assigned 
value to be truncated, if necessary, to 
an integer. The V character cannot 
appear more than once in a picture spe- 
cification. The V is considered to be a 
subf ield_delimiter in the picture speci- 
fication; that is, the portion preceding 
the V and the portion following it (if 
any) are each a subfield of the 
specification. 



Figure 9 gives examples of numeric- 
character specifications using the picture 
characters 9 and V. 
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Source | Source Data | Picture 
attributes | (in constant form) | Specification 
+ +. 

FIXED (5) j 12345 ] 99999 


-H 


Character- String 
Value* 

12345 


FIXED (5) 


12345 


99999V 




12345 


FIXED (5) 


12345 


999V99 




345002 


FIXED (5) 


12345 


V99999 




00000 2 


FIXED (7) 


1234567 


99999 




345672 


FIXED (3) 


123 


99999 




00123 


FIXED (5,2) 


123.45 


999V99 




12345 


FIXED (7,2) 


12345.67 


979 




562 


FIXED (5,2) 


123.45 


99999 




00123 



J. J J J 



., 



1 The arithmetic value is the value expressed by the digits and the actual or assumed 

location of the V in the specification. 
2 ln this case, PL/I does not define the result since significant digits have been lost 

on the left; the result shown, however, is that given for System/360 implementations. 



Figure 9. Pictured Numeric-Character Examples 



Zero-Suppression Characters 

The zero-suppression picture characters 
specify conditional_digit_positions in the 
character-string value. You may use them 
to cause leading zeros to be replaced by 
asterisks or blanks. Leading_zeros are 
those that 



ter Z is used, except that leading zeros 
are replaced by asterisks. The picture 
character * cannot appear with the pic- 
ture character Z in the same subfield, 
nor can it appear to the right of a 
drifting picture character or any of the 
picture characters 9, T, or R in a 
field. 



1) occur in the leftmost digit positions of 
fixed-point numbers, 

2) are to the left of the assumed position 
of a decimal point, and 

3) are not preceded by any of the digits 1 
through 9. 

The leftmost non-zero digit in a number 
and all digits, zeros or not, to the right 
of it represent significant digits. 

Z specifies a conditional digit position 
and causes a leading zero in the asso- 
ciated data position to be replaced by a 
blank character. When the associated 
data position does not contain a leading 
zero, the digit in the position is not 
replaced by a blank character. The pic- 
ture character Z cannot appear in the 
same subfield as the picture character 
*, nor can it appear to the right of a 
drifting picture character or any of the 
picture characters 9, T or R in a field. 

* specifies a conditional digit position 
and is used the way the picture charac- 
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Note_2: Zero-suppression characters must 
not appear in pictures for floating-point 
data. 

Figure 10 gives examples of the use of 
zero-suppression characters. In the 
figure, the letter b indicates a blank 
character. 
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Source 
Attributes 

FIXED (5) 


— f- 


Source Data | Picture | Character-String 
(in constant form) | Specification | Value 1 

f x 

12345 | ZZZ99 | 12345 


FIXED (5) 




00100 


ZZZ99 


bb100 


FIXED (5) 




00000 


ZZZ99 


bbbOO 


FIXED (5) 




00100 


ZZZZZ 


bb100 


FIXED (5) 




00000 


ZZZZZ 


bbbbb 


FIXED (5,2) 




123.45 


ZZZ99 
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FIXED (5,2) 
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ZZZV99 


bb123 


FIXED (5) 
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ZZZV99 


345002 


FIXED (5) 




00000 


ZZZVZZ 


bbbbb 


FIXED (5) 




00100 


3&C jfe *4c & & 


**100 


FIXED (5) 




00000 


***** 


***** 


FIXED (5,2) 




000.01 


***v*# 


***01 



h X 



.J J 



1 The arithmetic value is the value expressed by the digits and the actual or assumed 

location of the V in the specification. 
2 In this case, PL/I does not define the result since significant digits have been lost 

on the left; the result shown, however, is that given for System/360 implementations. 



Figure 10. Examples of Zero Suppression 
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Note: Insertion characters are applicable 
only to the character-string value. They 
have no influence on the arithmetic value 
of the data item. 

, causes a comma to be inserted in the 
associated position of the numeric- 
character data when no zero suppression 
occurs. If zero suppression does occur, 
the comma is inserted only when an 
unsuppressed digit appears to the left 
of the comma position, or when a V 



appears immediately to the left of it 
and the fractional part contains any 
significant digits. In all other cases 
where zero suppression occurs, one of 
three possible characters is inserted in 
place of the comma. The choice of char- 
acter to replace the comma depends u^on 
the first picture character that both 
precedes the comma position and speci- 
fies a digit position: 

• If this character is an asterisk, the 
comma position is assigned an 
asterisk. 

• If this character is a drifting sign 
of a drifting currency symbol (dis- 
cussed later) , the drifting string is 
assumed to include the comma posi- 
tion, and the action taken is the 
same as that for drifting characters. 

• If this character is not an asterisk 
or a drifting character, the comma 
position is assigned a blank 
character. 

is used the same way the comma picture 
character is used, except that a point 
(.) is assigned to the associated posi- 
tion. This character never causes point 
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B specifies that a blank_character is to 
be inserted in the associated position 
of the character-string value of the 
numeric-character field. 

You can use the }.oint (or the comma) in 
conjunction with the V to cause insertion 
of the point (or comma) in the position 
that delimits the end of the integer por- 
tion and the beginning of the fractional 
portion of a fixed-^oint (or floating- 



point) number, as you may desire it in 
printing, since the V does not cause print- 
ing of a point. In this case, the point 
mast immediately precede or immediately 
follow the V. If the point precedes the V, 
it will be inserted only if a significant 
digit appears to the left of the V, even if 
all fractional digits are significant. If 
the point immediately follows the V, it 
will be suppressed if all digits to the 
right of the V are suppressed, but it will 
appear if there are any fractional digits 
(along with any intervening zeros) . 



The insertion characters B, comma, and 
point must be preceded by a digit position 
in the same field. 



Figure 11 gives examples of the use of 
insertion characters. In the figure, the 
letter b indicates a blank character. 



Source 
attributes 

H 

FIXED (4) j 


Source Data 
(in constant form) 
y i 

1234 


Picture 
Specification 
i 

9,999 


Character- String 
Value* 

1,234 


FIXED(6,2) 


1234.56 


9, 999V. 99 


1,234.56 


FIXED (4,2) 


12.34 


ZZ.VZZ 


12.34 


FIXED (4,2) 


00.03 


ZZ. VZZ 


bbb03 


FIXED(4,2) 


00.03 


ZZV.ZZ 


bb.03 


FIXED(4,2) 


12.34 


ZZV.ZZ 


12.34 


FIXED (4,2) 


00.00 


ZZV.ZZ 


bbbbb 


FIXED(4,2) 


67.89 


9,999,999.V99 


0,000,067.89 


FIXED (7,2) 


12345.67 


**,999V.99 


12,345.67 


FIXED (7, 2) 


00123.45 


**,999V.99 


***123.45 


FIXED (9,2) 


1234567.89 


9.999.999V, 99 


1.234.567,89 


FIXED (6) 


123456 


99.999.9 


12.345.6 


FIXED (6) 


001234 


LA LA g LA LA / La la 


bbb12,34 


FIXED (6) 


000000 


ZZ,ZZ,ZZ 


bbbbbbbb 


FIXED (6) 


000000 


** , **, ** 


******** 


FIXED (6) 


123456 


99B99B99 


12b34b56 


FIXED (3) 


123 


9BB9BB9 


1bb2bb3 



J. — 



J J J 4 



'•The arithmetic value is the value expressed by the digits and the actual or assumed 
location of the V in the specification. 



Figure 11. Examples of Insertion Characters 
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Numeric Signs and Currency Symbol 

The picture characters S and - specify 
signs in numeric-character data. The pic- 
ture character $ specifies a curr.ency_sym; 
bol in the character-string value of 
numeric-character data. 



You may use these picture characters in 
either a static or a drifting manner. A 
drifting character is similar to a zero- 
suppression character in that it can cause 
zero suppression. However, a single drift- 
ing character is always inserted (unless 
the entire field is suppressed) in the 
position specified by the end of the drift- 
ing string or in the position immediately 
to the left of the first significant digit. 



The static use of these characters spe- 
cifies that a sign, a currency symbol, or a 
blank (in the case of a minus sign charac- 
ter if the data value is less than or equal 
to zero) always appears in the associated 
position. The drifting use specifies that 
leading zeros are to be suppressed. In 
this case, the rightmost suppressed posi- 
tion associated with the picture character 
will contain a blank, a sign, or the $ cur- 
rency symbol. 

A drifting character is specified by 
multiple use of that character in a. picture 
field. Thus, if the field contains one 
currency symbol, it is interpreted as stat- 
ic; if the field contains more than one 
currency symbol, it is interpreted as 
drifting. The drifting character must be 
specified in each digit position through 
which it may drift. 

Drifting characters must appear in 
strings. A string is a sequence of the 
same drifting character, optionally con- 
taining a V and one of the insertion 
characters comma, point, or B. Any of the 
insertion characters comma, point, or B 
following the last drifting symbol of the 
string is considered part of the drifting 
string. However, a following V terminates 
the drifting string and is not part of it. 
A field of a picture specification can con- 
tain only one drifting string. A drifting 
string cannot be preceded by a digit posi- 
tion, insertion characters, or a V. If a 
drifting string exists in a field, zero 
suppression characters (Z or *) must not 
appear in the same field. 

The position in the data associated with 
the characters comma, point, and B appear- 
ing in a string of drifting characters will 
contain one of the following: 

• comma, point, or blank if a significant 
digit has appeared to the left; 



• the drifting symbol, if the next posi- 
tion to the right contains the leftmost 
significant digit of the field; 

• blank, if the leftmost significant digit 
of the field is more than one position 
to the right. 

If a drifting string contains the drift- 
ing character n times, then the string is 
associated with n - 1 conditional digit 
positions. The position associated with 
the leftmost drifting character can contain 
only the drifting character or blank, never 
a digit. If a drifting string is specified 
for a field, the other potentially drifting 
characters can appear only once in the 
field, i.e., the other character represents 
a static sign or currency symbol. 

Only one type of sign character can 
appear in each field. An S or a minus (-) 
used as a static character can appear to 
the left of all digits in the mantissa and 
exponent fields of a floating-point speci- 
fication and either to the right or left of 
all digit positions of a fixed-point 
specification. 

If a drifting string contains a V within 
it, the V delimits the preceding portion as 
a subfield, and all digit positions of the 
subfield following the V must also be part 
of the drifting string. 

In the case in which all digit positions 
after the V contain drifting characters, 
suppression in the subfield will occur only 
if all of the integer and fractional digits 
are zero. The resulting edited data item 
will then be all blanks. If there are any 
significant fractional digits, the entire 
fractional portion will appear 
unsup^ressed. 

$ specifies the currency symbol. If this 
character appears more than once, it is 
a drifting character; otherwise it is a 
static character. The static character 
specifies that the character is to be 
placed in the associated position. The 
static character must appear either to 
the left of all digit positions in a 
field of a specification or to the right 
of all digit positions in a specifica- 
tion. See details above for the drift- 
ing use of the character. 

S specifies the plus sign character (+) if 
the data value is equal to or greater 
than zero, otherwise it specifies the 
minus-sign character (-) . The character 
may be drifting or static. The rules 
are identical to those for the currency 
symbol. 

specifies the minus-sign character (-) 
if the data value is less than zero, 
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j. - 


Character -St ring 
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j 


r 

| FIXED (5, 2) 


| 123.45 | 


S999V.99 
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$123.45 


1 


| FIXED (5, 2) 


| 001.23 | 


$ZZZV. 99 




$bb1.23 




| FIXED (5, 2) 


| 000.00 | 


$ZZZV. ZZ 




bbbbbbb 




| FIXED (5, 2) 


| 123.45 | 


$$$9V.99 




$123.45 




| FIXED (5, 2) 


| 001.23 | 


$$$9V.99 




bb$1.23 




| FIXED (5, 2) 


| 012.00 | 


99$ 




12$ 




| FIXED (2) 


I 12 | 


$$$,999 




bbb$012 




| FIXED (4) 


| 1234 | 


$$$,999 




b$1,234 




| FIXED (5, 2) 


| 123.45 | 


S999V.99 




+123.45 




| FIXED (5, 2) 


| -123.45 | 


S999V. 99 




-123.45 




| FIXED (5,2) 


] -123.45 | 


-999V. 99 




-123.45 




| FIXED (5,2) 


| 123.45 | 


-999V. 99 




b123.45 




| FIXED(5,2) 


| 123.45 | 


999V. 99S 




123.45+ 




| FIXED (5,2) 


J 001.23 j 


9V. 99 




bbb1.23 




| FIXED (5,2) 


| -001.23 | 


SSS9V. 99 




bb-1.23 
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Figure 12. Examples of Numeric Signs and the Currency Symbol in Picture Specifications 



otherwise it specifies a blank. The 
character may be drifting or static. 
The rules are identical to those for the 
currency symbol. 

Note: $, S, and - cannot be drifting 
characters in floating-point picture 
specifications. 

Figure 12 gives examples of the use of 
numeric signs and the currency symbol as 
picture characters. In the figure, the 
letter b indicates a blank character. 



Credit, Debit, and Overpunched- Sign Characters 

The character pairs CR (credit) and DB 
(debit) specify the signs of fixed-point 
numeric character data items and usually 
appear in business report forms. 

Any of the picture characters T or R 
specifies an overpunched sign in the asso- 
ciated digit position of a fixed-point 
numeric-character data item. An over- 



punched sign is a 12-punch (for plus) or an 
11-punch (for minus) punched into the same 
column as a digit. It indicates the sign 
of the arithmetic data item. Only one 
overpunched sign can appear in a specifica- 
tion for a fixed-point number. The over- 
punch character can appear only in the last 
<li3it_20sition within a field. 

CR specifies that the associated positions 
will contain the letters CR if the 
value of the data is less than zero. 
Otherwise, the positions will contain 
two blanks. The characters CR can 
appear only to the right of all digit 
positions of a field. 

DB is used the same way that CR is used 
except that the letters DB appear in 
the associated positions. 

T specifies that the associated position, 
on input, will contain a digit over- 
punched with the sign of the data. It 
also specifies that an overpunch is to 
be indicated in the character-string 
value. 
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Figure 13. Examples of CR, DB, T, and R Picture Characters 



specifies that the associated position, 
on input, will contain a digit over- 
punched with - if the value is smaller 
than zero; otherwise, it will contain 
the digit with no overpunching., It 
also specifies that an overpunch is to 
be indicated in the character-string 
value if the data value is smaller than 
zero. 



decimal_numbers. The exponent field is 
always the last field of a numeric- 
character floating-point picture 
sj ecif ication. 

E specifies that the associated position 
contains the letter E, which indicates 
the beginning of the exponent field. 



Note: You cannot use the picture charac- 
ters CR, DB, T, and R with any other sign 
characters in the same field. 

Figure 13 gives examples of the CR, DB, 
and overpunch characters. In the figure, 
the letter b indicates a blank character. 



The value of the exponent is adjusted 
(that is, it is varied) in the character- 
string value so that the first significant 
digit of the first field (the mantissa) 
appears in the position associated with the 
first digit specifier of the specification 
(see the first two examples of Figure 14). 



The Exponent Specifier E 

The picture character E delimits the 
exponent field of a numeric-character spe- 
cification that describes floating-point 



Note: Drifting and zero-suppression chara- 
cters are not allowed in floating-point 
pictures. Exponent-field pictures are 
restricted to the only format ES99. 

Figure 14 gives examples of the use of 
exponent delimiters. 
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Figure 14. Examples of Floating-Point Picture Specifications 
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Edit- Directed Format Items 



This section contains a description of each 
of the edit-direct ed format items that can 
appear in the format list of a GET, PUT or 
FORMAT statement. 

There are three categories of format 
items: 

• data format items, 

• control format items, and 

• remote format item. 

The three categories are discussed 
separately and the format items are listed 
under each category. The remainder of the 
section contains detailed discussions of 
each of the format items. 

Data Format Items 

A data-format item describes the external 
format of a single data item. 

For_irifc.ut, the data in the stream is 
considered to be a continuous string of 
characters. Each data-format item in a GET 
statement specifies the number of charac- 
ters to be obtained from the stream and 
describes the way those characters are to 
be interpreted, whether as characters or as 
arithmetic values. 

I.9£_output, the data in the stream takes 
the form specified by the format list. 
Each data-format item in a PUT statement 
specifies the width of the field into which 
the associated data item in character form 
is to be placed and describes the format 
that the value is to take. 

Leading blanks are not inserted automat- 
ically to separate data items in the output 



stream. Character-string data is left- 
adjusted in the field whose width is speci- 
fied. Arithmetic data is right-adjusted. 
Leading blanks will not appear in the 
stream unless the specified field width 
allows for them. Truncation due to inade- 
quate field-width specification is on the 
left for arithmetic items, on the right for 
character-string items. 

Figure 15 shows all data format items 
and their formats. 



| Category 

j. 

Fixed-point 

Floating-point 

Character-string 



| Data Format Item | 
. f 1 

F(w,[d,[ P ]]) 
E (w,d[,s]) 

A[ (*)■] 

j 



Figure 15. Data Format Items 



Control Format Items 

The control-format items apply to input and 
output files. They specify formatting of 
the data items coming from or going to the 
external medium. 

Figure 16 shows all control format items 
and their formats. 

A control format item has no effect 
unless it is encountered before the data 
list is exhausted. 

The PAGE and SKIP format items have the 
same effect as the corresponding options of 
the POT statement, except that the format 
items are executed only when they are 



Control Format Item 



Category 



I for PRINT files I for non-PRINT files 





-f 




-+ 




Paging 


I 
-+ 


PAGE 


I 

-+ 




Line skipping 


I 

■-f 


SKIP [ (w) ] 


I 




Record skipping 


I 
--+ 




I 
-+ 


SKIP [ (W) ] 


Spacing 


I 

„_JL 


X(w) 


I 

X 


X(W) 



Figure 16. Control Format Items 
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encountered in the format list, while the 
options of the PUT statement are executed 
before any data is transmitted. 



£he_E_Format_Item 
The E format item is: 



Remote Format Item 

The remote format item specifies the label 
of a FORMAT statement: This statement con- 
tains a format list which replaces the 
remote format item in the GET or PUT 
statement. 

The remote format item is: 

R (statement-label-designator) 



The statement-label designator is a 
label constant or an unsubscripted element 
label variable. 



Alphabetic List of Format Items 

The_A_Format_Item 

The A format item is: 

For input: A (w) 
For output: A [ (w) ] 

where w is the number_of_characters to be 
transmitted. 



The character-string format item 
describes the external representation of a 
string of characters. You must use it only 
for character strings. Character strings 
cannot be transmitted by any other format 
item. No conversion is performed. 



General Rules: 

1. The letter w must be a decimal integer 
constant, unsigned and greater than 
zero, but less than 256. It specifies 
the number of characters to be 
transmitted. 

2. On inp.ut, the specified number of 
characters is obtained from the data 
stream and assigned to the associated 
variable in the data list. For input, 
you must always specify w. If apos- 
trophes appear in the stream, they are 
treated as characters in the string. 

3. On output, w need not be specified; in 
this case, the length of the associated 
string is used, and the data item com- 
pletely fills the field. Enclosing 
apostrophes are not inserted. 



For input: E (w,d) 

For output: E (w,d[,s]) 

where w is the field-width, d the number_gf 
f Eactional_diiits ., and s the n umber _of_s ig,- 
Uif. ica n t_d igi t s . 

The floating-point format item E 
describes the external representation of 
decimal arithmetic data in floating-point 
format. 

General Rules: 

1. The letters w, d, and s must be 
ifi§i3Q§5_d§cimal_integer_constants. 
The integer w specifies the total num- 
ber of characters in the field. It 
must be less than 33. The integer d 
specifies the number of fractional 
digits, that is, the number of digits 
following the decimal point in the man- 
tissa: s specifies the number of 
digits that must appear in the 
mantissa. 

2. On input, the data item in the stream 
is the character representation of an 
optionally signed decimal floating- 
point or fixed-point constant located 
anywhere within the specified field. 
If the data item is a fixed-point num- 
ber, an exponent of zero is assumed. 

The external form of the number is: 

([E]{±n 

[±] mantissa < > exponent 
I E[±] ) 

The mantissa muot be a fixed-point 
decimal constant. 

The number can appear anywhere in the 
specified field; blanks may appear 
before and after the number in the 
field. If the entire field is blank, 
the CONVERSION condition is raised. 
When no decimal point appears, the num- 
ber of fractional digits (d) specifies 
the number of character positions to 
the right of the assumed decimal k°i nt 
of the mantissa. If a decimal point 
actually does appear in the data, it 
overrides d. 

The value expressed by w includes 
trailing blanks, the exponent 
position (s), the position for the 
optional plus or minus sign, the posi- 
tion for the optional letter E, and the 
position for the optional decimal point 
in the mantissa. 
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The exponent must be a decimal integer 
constant that does not exceed two sig- 
nificant digits. Leading zeros are 
allowed. Whenever the exponent and a 
preceding sign or the letter E are 
omitted, a zero exponent is assumed. 



On output, the internal data is con- 
verted, if necessary, to floating-point 
numeric-character representation, and 
the external data item in the specified 
field has the following general form: 



[-][s-d digits}. {d digits }E( + | - }exponent 



The exponent is a two-digit decimal 
integer constant, which may be two 
zeros. The exponent is automatically 
adjusted so that the leading digit of 
the mantissa is non-zero (provided that 
the mantissa is not zaro, of course). 



If the above form of the number does 
not fill the specified field on output, 
the number is right-adjusted and 
extended on the left with blanks. If 
the number of significant digits is not 
specified, it is taken to be 1 plus the 
number of fractional digits. For the 
Model 20 PL/I Compiler, the field width 
for negative or non-negative values of 
the data item must be greater than or 
egual to 6 plus the number of signifi- 
cant digits (although the sign of a 
positive digit is not written, it must 
be accounted for) . However, if the 
number of fractional digits is zero, 
the decimal point is not written, and 
the above figure for the field width is 
reduced by 1. 

When the internal data is converted to 
the output format, it is rounded as 
follows: if truncation causes a digit 
to be lost on the right and this di-jit 
is greater than or equal to 5, then 1 
is added to the digit to the left of 
the lost digit., 

Example: 

DCL (A,B,C) FLOAT(15); 
A = -1234567 
B = -1.2345678E-10 
C = 1.2345678E+1 

PUT FILE (OUT) EDIT (A,B,C) 
(E15,6) ,E (15,6,8) ,E (15,8) 

When R,B and C are pointed, they will look 
as follows: 

bb-1.234567E+06b-12.345678E-11 
b1.23456780E+01 



Ih§_F_Format_Item 
The F format item is: 



F (w[,d[,p]]) 

where w is the field_width, d the num.ber_of 
fractiona^digits, and p the sea le_f actor. 

The f ixed-point format item describes 
the external representation of a decimal 
arithmetic data item in fixed-point format. 

General Rules: 



1 . 



2. 



3. 



The letters w, d, and p must be decimal 
integer constants. Only p can be 
signed; the others must be unsigned; w 
must be less than 33 and must, for out- 
put, account for the sign, even if it 
is blank. 

On input, the data item in the stream 
is the character representation of an 
optionally signed decimal fixed-point 
constant located anywhere within the 
specified field. Blanks may appear 
before and after the number in the 
field. If the entire field is blank, 
it is interpreted as zero. 

If d is not specified, the number of 
fractional digits is assumed to be 
zero. 

If p is not specified and no decimal 
point appears in the field, d specifies 
the number of fractional digits, that 
is, tha number of digits to the right 
of the assumed decimal point. If a 
decimal point actually does appear in 
the data, it overrides the specifica- 
tion d. 
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On output, the internal data is con- 
verted, if necessary, to fixed-point, 
and the external data is the character 
representation of a decimal fixed-point 
number, right-adjusted in the specified 
field. 
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If only w is specified in the format 
item, only the integer portion of the 
number is written; no decimal point 
appears. 



If both w and d are specified, both the 
integer and fractional portions of the 
number are written, and if d is greater 
than zero a decimal point is inserted 
before the leftmost d digits. Trailing 
zeros are supplied when the actual num- 
ber of fractional digits is less than d 
(the value d must be less than the 
field width (w) ) . Suppression of lead- 
ing zeros is applied to all digit posi- 
tions (except the first) to the left of 
the decimal point. 



When the internal data is converted to 
the output format, it is rounded as 
follows: if truncation causes a digit 
to be lost on the right and this digit 
is greater than or equal to 5, then 1 
is added to the digit to the left of 
the lost digit. 



£he_R_Format_Item 

The R format item is: 

R (statement-label-designator) 

The remote format item allows the use of 
format items' specified in a FORMAT 
statement. 

General Rules: 

1. The statement-label designator is a 
label constant or a label variable 
whose value is the statement label of a 
FORMAT statement. The FORMAT statement 
includes a format list that is taken to 
replace the format item. The 
statement-label designator cannot be 
subscrij. ted. 

2. The R format item and the specified 
FORMAT statement must be contained 
within the same procedure. 

3. A FORMAT statement must not contain an 
R format item. 



When p_ is specified, the value of the 
associated element in the data list is 
effectively multiplied by 10 raised to 
the power of p before it is converted 
to its external character representa- 
tion. When the number of fractional 
digits is zero, only the integer por- 
tion of the number is used. 



If the value of the fixed-point number 
is less than zero, the external charac- 
ter representation is preceded by a 
minus sign. If it is greater than or 
equal to zero, a blank appears. There- 
fore, for all values of the fixed-point 
number, w must account for both the 
sign and a possible decimal point (the 
decimal point will not appear if there 
are no fractional digits) . 



The_PAGE_Format_Item 
The PAGE format item is: 

PAGE 



The paging format item PAGE specifies that 
printing is to continue on a new page. 



General Rules: 



The PAGE format item implies that printing 
is to continue on line 1 of the new page. 



rhe_SKIP_Format_Item 

The SKIP format item is: 

SKIP [ (w) ] 

where w specifies that writing or reading 
is to continue at the beginning of the wth 
line or record (for non-PRINT files) fol- 
lowing the one just being written or read. 

The skipping format item SKIP can be 
used with both PRINT and non-PRINT files, 
in GET as well as PUT statements. When 
used in a PUT statement for a PRINT file, 
it specifies that printing is to continue 
on a new line. When used in a GET state- 
ment, it specifies that a new record is to 
be read. 

General Rules: 

1. The letter w must be an unsigned deci- 
mal integer constant between and 3 
for PRINT files and 1 and 3 for non- 
PRINT files (SKIP(O) is not allowed for 
non-PRINT files) . If w is not speci- 
fied, 1 is assumed. 

2. If w is greater than or equal to 1, w-1 
blank lines or records will be inserted 
for output, or w-1 complete records 
will be skipped for input. 

3. If SKIP (0) is specified for PRINT 
files, the effect is that of carriage 
return without line skipping. Charac- 
ters previously written will be over- 
printed by the new characters. For 



Edit-Directed Format Items 101 



example, underscoring can be done in 
this form. 

If the SKIP format item is not speci- 
fied at the end of a line or record, 
SKIP(1) is assumed, that is, printing 
continues at the beginning of the fol- 
lowing line (single spacing) , or read- 
ing continues at the beginning of the 
following record. 

If, for PRINT files, the specified line 
lies beyond the limit set by default 
{which is 60) or by the PAGESIZE option 
of the OPEN statement, the ENDPAGE con- 
dition is raised. 



lh§_I_Format_Item 
The X format item is: 
X(w) 



where w is the field width. 



The spacing format item controls the 
relative spacing in the data stream. It 
can be used in GET as well as PUT 
statements. 



General Rules: 



1 . The letter w must be an unsigned deci- 
mal integer constant less than 256. 

2. On input, w specifies the number of 
characters to be spaced over in the 
data stream, i.e., not to be trans- 
mitted to the program. 

3. On output, the specified number of 
blank characters is inserted in the 
data stream. 
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Built-in Functions and the Pseudo-Variable SUBSTR 



This section contains a description of the 
built-in functions and the pseudo-variable 
SUBSTR available in Model 20 PL/I. These 
features are discussed in the following 
order : 

1. Computational Built-in Functions 

a) String-handling built-in functions 

b) Arithmetic built-in functions 

c) Mathematical built-in functions 

2. Other Built-in Functions 

3. The Pseudo-Variable SUBSTR 

The computational_built-in_f unctions, as 
shown above, provide string handling, 
arithmetic operations (absolute value, 
truncation, etc.)/ mathematical operations 
(trigonometric functions, square root, 
etc.) . 

The computational built-in functions 
are: 

St r i n cj._Han dl in c[ : 
CHAR 
HIGH 
LOW 
SUBSTR 

ABS 

CEIL 

FLOOR 

MAX 

MIN 

ROUND 

TRUNC 

Mathematical: 

ATAN 

COS 

EXP 

LOG 

SIN 

SQRT 

TAN 

TANH 

Q.£her_built-in_f unctions are: 
ADDR 
DATE 

The section on the pseudo- variable_ 
SUBSTR gives a short discussion of the 
pseudo- variable . You find a more complete 
description in the discussion of the corre- 
sponding built-in function. 



The built-in functions and the pseudo- 
variable are presented in alphabetical 
order under their proper headings. 



Computational Built-in Functions 

STRING_HANDLING_BUILT-IN_FUNCTIONS 

You may use the functions described in this 
section for manipulating character strings. 
The arguments you may use must be 
§x press ions . 

£HAR_Built-In_Function 

2.e fifii i io n : CHAR is used to control the 
size of a character-string expression. In 
Model 20 PL/I, it is mainly used to convert 
a picture variable to a character string. 

Reference 1 CHAR (expression [,size]) 
Arguments: The argument expression may be: 

a. a character-string expression, or 

b. a numeric-character expression 

The argument siz_e, when specified, must 
be a decimal_in.teg.er_cojistant giving the 
length of the result. If size is not spe- 
cified, the length resulting from the 
character-string expression or numeric- 
character expression is taken. 

Result: The value returned by this func- 
tion is expression converted to a character 
string. The length of this character 
string is determined by size, as described 
above. 

Example: 

DCL X PIC'**9V.99' ; 



PUT FILE(OUT) EDIT 
(CHAR(X))(A) ; 

HIGH_Built-In_Function 

Definition: HIGH forms a character string 
of a specified length. Each character in 
the constructed string is the highest char- 
acter in the collating sequence. For 
System/360 implementations, this character 
is stored as hexadeciraal_FF. 

Reference: HIGH (i) 
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Argument: The argument i must be an 
unsigned decimal integer constant specify- 
ing the length. of the string that is to be 
formed. 

Result: The value returned by this func- 
tion is a character string of length i each 
character in the string is stored as hexa- 
decimal FF. 



E§§ult: The value returned by this func- 
tion is a character string of length i each 
character in the string is the lowest char- 
acter in the collating sequence which, for 
Systam/360 implementations, is hexadecimal 
00. 

Example: LOW (3) has the value X'000000' 



Figure 17 illustrates the use of the 
built-in function HIGH. 

Two sequential files with ascending keys 
shall be merged. When the first file is 
exhausted its key is set ' high' . Thus, 
only the records of the non-exhausted file 
will be copied. 

MERGE;: PROCEDURE OPTIONS (MAIN) ; 
DCL 1 S1 BASED (P1) , 

2 KEY CHAR (5) , 

1 S2 BASED (P2) , 

2 KEY CHAR(5) , 

1 S3 BASED (P) , 

2 KEY. ., 

(P,P1,P2) POINTER, 
LBL LABEL INIT (START) , 

F1 FILE SEQUENTIAL INPUT 

F2 FILE SEQUENTIAL INPUT .... 

FO FILE SEQUENTIAL OUTPUT 

/*FILE ACTIVATION*/ 
OPEN FILE(F'I) ,FILE(F2) ,FILE(F0) ; 
ON ENDFILE(FI) GO TO EOF1; 
ON ENDFILE(F2) GO TO EOF2 ; 
READ1: READ FILE(F1) SET(P1); GO TO LBL; 
START: LBL = COMP; 
READ2: READ FILE (F2) SET (P2) ; 
COMP : IF S1.KEY>=S2.KEY THEN P = ADDR (S2) ; 
ELSE P=ADDR (S1) ; 
WRITE FILE(FO) FROM (S3) ; 
IF P=ADDR(S2) THEN GO TO READ2; 
GO TO READ1 ; 
EOF1 : IF S2.KEY=HIGH(5) THEN GO TO FINIS; 

S1 .KEY=HIGH (5) ; GO TO COMP; 
EOF2 : IF S1.KEY=HIGH(5) THEN GO TO FINIS; 

S2.KEY = HIGH (5) ; GO TO COMP; 
FINIS: END; 

Figure 17. Example for the Usage of a 
Built-in Function (HIGH) 



L ow_B ui 1 t- I n_F unction 

Definition: LOW forms a character string 
of specified length from the lowest charac- 
ter in the collating sequence which, for 
System/360 implementations, is hexadecimal 
00. Each character in the constructed 
string will be stored as hexadecimal 00. 

Inference: LOW (i) 

Argument: The argument i must be an 
unsigned decimal integer constant specify- 
ing the length of the string to be formed. 



SUBSTR_Built-In_Function 

Definition: SUBSTR extracts a substring of 
defined length from a given string and 
returns the substring to the point of invo- 
cation. (SUBSTR can also be used as a 
pseudo- variable) . 

£§£ e -£ e -Q.£§ : SUBSTR (string ,i,j) 

^Eguments: The argument string represents 
the string from which a substring will be 
extracted. This argument can be: 

• a character string expression, or 

• a numeric-character expression 

The argument i represents the starting 
point of the substring relative to the 
beginning of the specified string, and the 
argument j represents the length of the 
substring. Argument i must be an expres- 
sion that allows conversion to an integer; 
j must be a decimal integer constant. 

Assuming that the length of string is k, 
the arguments i and j must satisfy the fol- 
lowing conditions: 

1. 2 roust be less than or equal to k and 
greater than or equal to 1. 

2. i must be less than or equal to k and 
greater than or equal to 1. 

3. The value of i + j - 1 must be less 
than or equal to k. 

Thus, the substring as specified by i 
and j must lie within string. Note that 
condition 1 is checked by the compiler; 
conditions 2 and 3 are not. 

!§§!ilt: The value returned by this func- 
tion is a substring of length j beginning 
with the ith character of string. 

Example: If AAA is a character string of 
length 8, the statements: 

DCL AAA CHAR (8) IN IT (• ABCDEFGH • ) 



ITEM = SUBSTR (AAA, 3,5); 
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will cause a 5-character substring to be 
extracted from AAA. The extracted string 
is then returned to the point of invoca- 
tion, after which it is assigned to ITEM 
(assuming ITEM is a character-string vari- 
able) . It will have the following form: 

CDEFG 



Since the built-in function SQRT allows 
only positive arguments, it is advisable to 
write : 

SQRT (ABS(A)) 

if you are not sure that A is positive. 



CEIL Built-in Function 



ARITHMETIC BUILT-IN FUNCTIONS 



All values returned by 
built-in functions are 
form. The arguments of 
should also be in that 
ment is not coded arith 
converted to coded arit 
function is invoked. N 
in the function descrip 
reference to an argumen 
converted argument, if 
necessary. 



the arithmetic 

in coded arithmetic 

these functions 
form. If an argu- 
metic, then it is 
hmetic before the 
ote, therefore, that 
tions below, a 
t always means the 
conversion was 



The argument of an arithmetic built-in 
function may only be an expression. Unless 
specifically stated otherwise, the scale 
and precision of the returned value are 
determined according to the conversion 
rules for expression operands as given in 
Part I, under Expressions. 

In many of these built-in functions, the 
symbol N is used. This symbol represents 
the maximum precision that a value may 
have. It is defined, for System/360 imple- 
mentations, as follows: 

N = 15 for FIXED and FLOAT DECIMAL 
values. 



ABS Built-in Function 



Definition: The absolute value of a number 
is the number with the sign removed. Thus, 
the absolute values of 1.5 and -1.5 are the 
same, namely, 1.5. 

ABS finds the absolute value of a given 
quantity and returns it to the point of 
invocation. 

Reference: ABS (x) 

Argument: x represents the value whose 
absolute value is to be found. 

Result: The value returned by this func- 
tion is the absolute value of x. The scale 
and precision are the same as those of x. 

Example: To get the absolute value of a 
variable A, write 

ABS(A) 



2§f i£i£ion: CEIL determines and returns 
the next integer above x unless x is an 
integer, in which case it returns the value 
of x itself to the point of invocation. 



S§. £ §.£§.2:2.6 • CEIL (x) 

Argument: x represents the value whose 
ceiling value is to be found. 

Result: The value returned by this func- 
tion is the smallest integer that is great- 
er than or equal to x. The scale and pre- 
cision are the same as those of x with one 
exception: if x is a fixed-point value of 
precision (p,g), the precision °f the 
result is defined as: 

(MIN (N,MAX (p-q+1, 1) ) ,0) 

Examples: 

CEIL (12.345) = 13 

CEIL (345.99) = 346 

CEIL (43.001) = 44 

CEIL (-2. 4) = -2 



CEIL (0056.34E02) 

CEIL (0012.37E-03) 

CEIL (000.01E-02) 

CEIL (-00.1E00) 

CEIL (000.01E-04) 



0056.34E02 

1000.00E-03 

100.00E-02 

00.0E00 

100.00E-2 



EkQQR_Built-In_F unction 

£§.£ ifi.it io n : FLOOR determines and returns 

the next integer below x unless x is an 

integer, in which case it returns the value 
of x itself. 

Reference: FLOOR (x) 

Argument: x represents the value whose 
floor value is to be found. 

Result: The value returned by this func- 
tion is the largest integer that does not 
exceed x. The scale and precision of this 
value are the same as those of x, with one 
exception: if x is a fixed-point value of 
precision (p,^) , the precision of the 
result is: 

(MIN(N,MAX (p-q+1, 1)),0) 
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Examples: 

FLOOR (12.345) = 12 

FLOOR (345.99) = 345 

FLOOR (43.001) = 43 

FLOOR (-2.4) = -3 

FLOOR (0056.34E20) = 0056.34E02 

FLOOR (0012.37E-03 = 0000.00E00 

FLOOR (000.01E-02) = 000.00E00 

FLOOR (-000. 1E0) = -001.0E00 



Hax_Bailt-In_Function 

Definition: MAX finds the expression with 
the highest value from a given set of two 
or more expressions and returns its value 
to the point of invocation. 

Reference: MAX (x1, x2 # . .., xn) 

Arguments: Two or more arguments must be 
given. They must have identical scale and 
precision. 

Result: The value returned by MAX is the 
value of the maximum-valued argument. The 
scale and precision is the same as of the 
arguments. 

Example: Assume the following parameter 
list specified for MAX: 

MAX (003.200, 042.356, NUMBER) 

with NUMBER having the value 102.000. Then 
MAX returns the value 102*000. 



Argument s : expression must be of fixed- 
decimal type. It is an expression re^-re- 
senting the value to be rounded: n must be 
an unsigned decimal integer constant. It 
specifies the fractional digit position (to 
the right of the decimal point) at which 
the value of expression is to be rounded. 

Result: expression is rounded at digit 
position n to the right of the decimal 
point. Spare digit positions are padded 
with zeros. The precision of the result 

is: 

(MIN(p + 1,N) ,q) 

Note that if expression is negative, its 
§b§2.Iil£e_value is rounded. Its sign 
remains unchanged. 

Example: If R is a fixed-point decimal 
variable of precision (7,5) containing the 
value 36.24976, and X, Y and Z are fixed- 
point decimal variables of precision (6,4), 
then after execution of the following 
statements: 

X = R ; 

Y = ROUND (R,3) ; 

Z = ROUND (R,4) ; 

the value of x is 36.2497 (normal trunca- 
tion due to precision deviation) , the value 
of I is 36.2500, and the value of Z is 
36.2498. 



TRUNC Built-in Function 



MlN_Built-In_Function 

definition: MIN finds the lowest-valued 
expression from a given set of two or more 
expressions and returns the value of this 
expression to the point of invocation. 



Reference: MIN (x1 , x2, 



xn) 



Arguments: Two or more arguments must be 
given. They must have identical scale and 
precision. 

Result: The value returned by MIN is the 
value of the lowest-valued argument. The 
scale and precision of the result is the 
same as that of the argument. 

RO U ND _B uilt- I n_F unction 

Definition: ROUND rounds a given value at 
a specified digit position to the right of 
the decimal point and returns the rounded 
value to the point of invocation. 

Reference: ROUND (ex* ression, n) 



Definition: TRUNC truncates a given value 
to an integer as follows: First, it deter- 
mines whether a given value is positive, 
negative, or equal to zero. If the value 
is negative, TRUNC returns the smallest 
integer that is greater than that value 
(ceiling) : if the value is positive or 
egual to zero, TRUNC returns the largest 
integer that does not exceed that value 
(floor) . 

Reference: TRUNC (x) 

£E2M§nt: x represents the value to be 
truncated. 

Result: If x is less than zero, the value 
returned by TRUNC is CEIL (x) . If x is 
greater than or egual to zero, the value 
returned by TRUNC is FLODR (x) . In either 
case, the scale of the result is the same 
as that of x. If x is floating-point, the 
precision remains the same. If x is a 
fixed-point value of precision (p,g), the 
precision of the value is: 

(MIN (N,MAX(p-a + 1) ) , 0) 
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MATHEHATICAL_BUILT-IN_FONCTIONS 

All arguments passed to the mathematical 
built-in functions should be in coded 
arithmetic form and in floating-point 
scale. Any argument that does not conform 
to this rule is converted to coded arith- 
metic and floatiny-point before the func- 
tion is invoked. Note, therefore, that in 
the function descriptions below, a 
reference to an argument always means the 
converted argument, if conversion was 
necessary. 

An argument to a mathematical built-in 
function must be an expression. All of the 
mathematical built-in functions return 
coded arithmetic floating-point values. 
The precision of these values is always the 
same as those of the arguments. 

Figure cc provides a survey of the 
mathematical built-in functions available 
in Model 20 PL/I. 



AT AN_Built-In_Fu net ion 

Definition: ATAN finds the arctangent of a 
given value and returns the result,, ex- 
pressed in radians, to the point of 
invocation. 

Reference: ATAN (x[ ,y]) 

Arguments: The argument x must always be 
specified; the argument y is optional. If 
y is omitted, x represents the value whose 
arctangent is to be found. 

If y is specified, then the value whose 
arctangent is to be found is taken to be 
the expression x/y. In this case, x and y 
must not be equal to both at the same 
time. 

Results When x alone, is specified, the 
value returned by ATAN is the arctangent of 
x expressed in radians, where: 

-pi/2<ATAN (x) <pi/2 

If both x and y are specified, the possible 
values returned by this function are 
defined as follows: 

1. For y > and any x, the value is ATAN" 
(x/y). 

2. If x > and y = 0, the value is 

(Pi/2) . 

3. If x > and y < 0, the value is 
(pi+ ATAN (x/y) ) . 

4. If x < and y = 0, the value is 
(-pi/2). 



5. If x < and y < 0, the value is 

(-pi + ATAN (x/y) ) . 

6. If x = and y = 0, the ERROR condition 
is raised. 



£QS_Built-In_F unction 

Definition: COS finds the cosine of a 
given value, which is expressed in radians, 
and returns the result to the point of 
invocation. 

Reference: COS (x) 

Argument: The value whose cosine is to be 
found is given by x; this value must be ex- 
pressed in radians. 

Result: The value returned by this func- 
tion is the cosine of x. 

IX P_Built-In_F unction 

Definition: EXP raises e (the base of the 
natural logarithm system) to a given power 
and returns the result to the point of 
invocation. 

Reference: EXP (x) 

Argument: The argument x specifies the 
power to which e is to be raised. It must 
not be greater than 112.8. 

Result: The value returned by this func- 
tion is e raised to the power of x. 

LQS_B_uilt-In_F unction 

Definition: LOG finds the natural 
logarithm (i.e., base e) of a given value 
and returns it to the point of invocation. 

Reference: L0G ( x ) 

Argument: The argument x is the value 
whose natural logarithm is to be found; it 
must not be less than or equal to 0. 

Result: The value returned by this func- 
tion is the natural logarithm of x. 

SIN_Built-In_F unction 

P.§-£illi£i2Il : SIN finds the sine of a given 
value, which is expressed in radians, and 
returns it to the point of invocation. 

Reference: SIN (x) 

Argument: The argument x is the value 
whose sine is to be found; it must be ex- 
pressed in radians. 

Result: The value returned by this func- 
tion is the sine of x. 
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§&KT_Built- Injunction 



Reference: TANH (x) 



Definition: SQRT finds the square root of 
a given value and returns it to the point 
of invocation. 

Reference: SQRT (x) 

Argument: The argument x is the value 
whose sguare root is to be found; it must 
not be less than 0. 



Argument: The argument, x, represents the 
value whose hyperbolic tangent is to be 
found . 



Result: The value returned by this func- 
tion is the hyperbolic tangent of x. 



Result: The value returned by this func- 
tion is the positive sguare root of x. 



TAN Built-in Function 



SOMMARY OF MATHEMATICAL FUNCTIONS 



Definition: TAN finds the tangent of a 
given value, which is expressed in radians, 
and returns it to the point of invocation. 

!!§.£ SEence: TAN ( x ) 

Argument: The argument, x, represents the 
value whose tangent is to be found; x must 
be expressed in radians. 

Result: The value returned by this func- 
tion is the tangent of x. 

TA N H_B ui 1 t- I n_F unction 

Definition: TANH finds the hyperbolic tan- 
gent of a given value and returns the 
result to the point of invocation. 



Figure 18 summarizes the mathematical 
built-in functions. In using it, you 
should be aware of the following: 

1. All arguments must be coded arithmetic 
and floating-point scale, or such that 
they can be converted to coded arith- 
metic floating-point. 

2. The value returned by each function is 
always floating-point. 

3. The error conditions are those defined 
by the PL/I language. Additional error 
conditions detected by the Model 20 
PL/I compiler can be found in Part III, 
under Practical_Considerations_Regard- 
i£i_EE22E§:!_Execution. 
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Figure 18. Mathematical Built-in Functions 
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Other Built-in Functions 

A DD3_Built -Injunction 

2§£ iSition : ADDR finds the location in 
main storage which has been allocated to a 
given variable and returns a pointer value 
to the point of invocation. This pointer 
value identifies the location allocated to 
the variable. 

Reference: ADDH (x) 

Argument: The argument, x is the variable 
whose location is to be found. It can be 
an element yariable, an array variable, a 
structure variable, an element of an array, 
or an element of a structure. It can be of 
any data type and storage class. 

Result: ADDR returns a pointer value iden- 
tifying the main storage location allocated 
to x. If x is a parameter, the returned 
value identifies the corresponding argument 
(dummy or otherwise) . If x is a based 
variable, the returned value is determined 
from the pointer variable declared with x; 
if this pointer variable contains no value, 
the value returned by ADDR is undefined. 
For an example of the ADDR function refer 
to the example illustrating the HIGH built- 
in function in this section. 

DAT E_Built- Injunction 

Definition: DATE returns the current data 
to the point of invocation. 

E§I§E§2£e: DATE 

Argument: None 

E§§Hit: The value returned by this func- 
tion is a character string of length six, 
in the form yymmdd, where: 



yy is the current year 
mm is the current month 
dd is the current day 



Example: If the current date is February 
29, 1970, execution of the statement 

X = DATE; 

will cause the character string '700229' to 
be returned to the point of invocation. 



Note: If the DATE built-in function is 
used, DATE has to be declared with the 
BUILTIN attribute in a DECLARE statement. 



The Pseudo-Variable SUBSTR 



Inference: SUBSTR (string, i, j) 



Description: SUBSTR represents a substring 
°f string. The value being assigned to 
SUBSTR is assigned to the substring of 
string, starting at the ith position of 
string and extending over a length of j 
positions as defined for the built-in func- 
tion SUBSTR. The remainder of string 
remains unchanged. 



Example: 

DCL NAME CHAR (10) 

INIT 'JOHN SMITH' ; 
SUBSTR (NAME, 2,6) = 'ACK KE»; 

After execution of the assignment state- 
ment, NAME will contain the character 
striny 'JACK KEITH' . 



Built-in Functions and the Pseudo-Variable SUBSTR 109 



ON-Conditions 



The ON-conditions are those exceptional 
conditions for which you can make an action 
specif ication by means of an ON- statement. 
If a condition is enabled, the occurrence 
of the condition will result in an inter- 
ruption of the program and in the execution 
of the current action specification for 
that condition. If an ON-statement for 
that condition is not in effect, the cur- 
rent action specification is the standard 
§I§tem_action for that condition. If an 
ON-statement for that condition is in 
effect, the current action specification as 
given in that statement is either SYSTEM, 
in which case the standard system action 
for that condition is taken, or an ON-unit, 
in which case you have supplied your own 
action to be taken for that condition 
(i.e., either a null statement or a GO TO 
statement) . 



If a condition is not enabled (i.e., if 
it has been disabled) , and the condition 
occurs, an interrupt will not take place, 
and errors may result. 

ON-conditions are always enabled unless 
they have been explicitly disabled by con- 
dition prefixes. 

Some of the ON-conditions can be dis- 
abled by a condition prefix specifying the 
condition name preceded by NO without 
intervening blanks. Thus, one of the fol- 
lowing names in a condition prefix will 
disable the respective condition: 

NOCONVERSION 

NOFIXEDOVERFLOW 

NOOVERFLOW 

NOUNDERFLOW 

NOZERODIVIDE 

Such a condition prefix renders the 
corresponding condition disabled throughout 
the scope of the prefix; the condition 
remains enabled outside this scope (see 
Part I, Exceptional_Conditign_5iandlin.g for 
a discussion of the scope of condition 
prefixes) . 

The following conditions are always 
enabled and remain so for the duration of 
the program: 

ENDFILE 

ENDPAGE 

ERROR 

KEY 

RECORD 

TRANSMIT 



Groups of ON-Conditions 

This section presents each condition in its 
logical grouping, and in alphabetical order 
within that grouping. In general, the fol- 
lowing information is given for each 
condition: 

1. General_f ormat -- given only when it 
consists of more than the condition 
name. 

2. Description — a discussion of the con- 
dition, including the circumstances 
under which the condition can arise. 

3. Result -- the result of the operation 
that caused the condition to occur. 
This applies when the condition is dis- 
abled as well as when it is enabled. 

In some cases, the result is not 
defined; that is, it cannot be pre- 
dicted. This is stated wherever 
applicable. 

4. Standard_system_action — the action 
taken by the system when an interrupt 
occurs and an ON-unit to handle that 
interrupt has not been specified. 

5. Normal_return -- the point to which 
control is returned as a result of a 
nail ON-unit. A GO TO statement ON- 
unit is an abnormal ON-unit termina- 
tion. Note that the conditions 
ENDFILE, KEY, and CONVERSION cannot 
have the null statement associated with 
them and, therefore, a normal return 
can never be made for these conditions. 

The conditions are grouped as follows: 

1. Computational_conditions -- those con- 
ditions associated with data handling, 
expression evaluation, and computation. 
They are: 

CONVERSION 

FIXED3VERFLDW 

OVERFLOW 

UNDERFLOW 

ZER3DIVIDE 

2« lnpu^<Qu^Eu.£_conditions -- those condi- 
tions associated with data transmis- 
sion. They are: 

ENDFILE 

ENDPAGE 

KEY 

RECORD 

TRANSMIT 
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3« Sxstem-action_condition -- the condi- 
tion (i.e., ERROR) that provides faci- 
lities to extend the standard system 
action that is taken after the occur- 
rence of a condition. 



Computational Conditions 



The CONVERSION Condition 



Stand.ard_System_Action: In the absence of 
an ON-unit, the system prints a message and 
raises the ERROR condition. 

Normal_Return: If a null ON-unit is speci- 
fied for this condition, control returns to 
the point immediately following the point 
of interrupt. 

The OVERFLOW Condition 



description: The CONVERSION condition 
occurs whenever an illegal conversion is 
attempted. This attempt may be made 
internally or during an input/output 
operation. 

All conversions of character-string data 
are carried out character-by-character in a 
left-to-right sequence and the condition 
occurs for the first illegal character. 
When such a character is encountered, an 
interrupt occurs (provided, of course, that 
CONVERSION has not been disabled by means 
of the condition prefix NOCONVERSION) and 
the current action specification for the 
condition is executed. 

!§§Hlt: When CONVERSION occurs, the con- 
tents of the entire result field are 
undefined. 

Standard_System_ Action: In the absence of 
an ON-unit, the system prints a message and 
raises the ERROR condition. 

No r m al _Ret ur n : A null ON-unit cannot be 
specified for this condition. 

Example: 

On input, an attempt is made to convert 
data that has been mispunched as 

10R-01 

to the floating-point format specified in 
the following GET statement: 

GET FILE (CARD) EDIT (Y)(E(8,2)); 

The CONVERSION condition is raised, since 
10R-01 does not have a valid floating-point 
format. 

I h e_FIX E DO VER FLO W_Con dit ion 

Description: The FIXEDOVERFLOW condition 
occurs when the length of the result of a 
fixed-point arithmetic operation exceeds N. 
For System/360 implementations, N is 15 for 
decimal fixed-point values. 

FIXEDOVERFLOW can be disabled by the 
condition prefix NOFIXEDOVERFLOW. 

Result: The result of the invalid fixed- 
point operation is undefined. 



Description: The OVERFLOW condition occurs 
when the magnitude of a floating-point num- 
ber exceeds the permitted maximum. For 
Model 20 PL/I, a floating-point number or 
intermediate result must be less than 10 49 - 
OVERFLOW can be disabled by the condition 
prefix NOOVERFLOW. 

Result: When OVERFLOW has occurred, the 
value in the affected floating-point field 
is undefined. 

S tandard_System_Action: In the absence of 
an ON-unit, the system prints a message and 
raises the ERROR condition. 

Normal_Return: If a null ON-unit is speci- 
fied for this condition, control returns to 
the point immediately following the point 
of interrupt. 

The_UN_DERFLOW_Condition 

Description: The UNDERFLOW condition 
occurs when the absolute value of a 
floating-point number is smaller than the 
permitted minimum. For Model 20 PL/I, the 
absolute value of a floating-point value 
must not be less than 10- 51 ,, except that it 
may be zero. 

UNDERFLOW does not occur when equal num- 
bers are subtracted (often called signifi- 
cance error) . 

UNDERFLOW can be disabled by the condi- 
tion prefix NOUNDERFLOW. 

Result: The invalid floating-point value 
is set to 0. 

§.tandard_Sy_stem_Action: In the absence of 
an ON-unit, the system prints a message and 
continues execution from the point at which 
the interrupt occurred. 

M2EffilI_?§turn: If a null ON-unit is speci- 
fied for this condition, control returns to 
the point immediately following the point 
of interrupt. 

The_ZERODIVIDE_Condition 

Description: The ZERODIVIDE condition 
occurs when an attempt is made to divide by 
zero. This condition is raised for fixed- 
point and floating-point division. 
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ZERODIVIDE can be disabled by the condi- 
tion prefix specifying NOZERODIVIDE. How- 
ever, in this case, division by zero 
results in a Model 20 hardware stop. 

Result: The result of a division by zero 
is undefined. 

Standard_System_ Action: In the absence of 
an ON-unit, the system prints a message and 
raises the ERROR condition. 

Nor mal_Re turn : If a null ON-unit is speci- 
fied for this condition, control returns to 
the point immediately following the point 
of interrupt. 



Input/Output Conditions 

The input/output conditions are always 
enabled and cannot appear in condition pre- 
fixes; they can be specified only in ON- 
statements. 

The_ENDFILE_Condition 

i.§neral_Format: ENDFILE (filename) 

Description: The ENDFILE condition can be 
raised during a GET or READ operation; it 
is caused by an attempt to read past the 
end-of-file record of the file named in the 
GET or READ statement. 

After ENDFILE has been raised, the file 
should be closed. 

Standard_System_ Action: In the absence of 
an ON-unit, the system prints a message and 
raises the ERROR condition. 

Nor^al_Return: A null ON-unit cannot be 
specified for this condition. 

The_ENDPAGE_Condition 

General_Format : ENDPAGE (filename) 

The filename must be the name of a file 
having the PRINT attribute. 

Description: The ENDPAGE condition is 
raised when a PUT statement results in an 
attempt to start a new line beyond the 
maximum default page length (60 lines) or 
the page length specified in the PAGESIZE 
option of the OPEN statement for the file. 
The attempt to exceed the limit may be made 
during data transmission (including any 
format items specified in the PUT state- 
ment) , or by the SKIP option. ENDPAGE is 
raised only once per page. 

When ENDPAGE is raised, the current line 
number is one greater than that specified 



by the PAGESIZE option (or the default) so 
that it is possible to continue writing on 
the same page. 

After ENDPAGE has been raised, a new 
l-aye can be started by executing a PAGE 
option or a PAGE format item. If a new 
page is not started, the current line num- 
ber may increase indefinitely. 

S ta nd a rd_S ys te m_Ac ti on : In the absence of 
an ON-unit, the system starts a new page. 

Norma l_Re turn: If ENDPAGE is raised during 
data transmission, then, on return from a 
nail ON-unit, the data is written on the 
current line. If ENDPAGE results from a 
SKIP option, then, on return from a null 
ON-unit, the action specified by SKIP is 
ignored. 



Ihe_KEY_Condition 

G§neral_Format: KEY (filename) 

Description: The KEY condition can be 
raised only during operations on keyed 
records. It is raised in any of the fol- 
lowing cases: 

1. The keyed record cannot be found for a. 
READ or REWRITE statement. In this 
case, the contents of the variable into 
which data is to be read is 
unpredictable. 

2. An attempt is made to add a duplicate 
key by a WRITE statement. 

3. The keys of a KEYED SEQUENTIAL OUTPUT 
file are not in ascending order. 

4. No space is available to add the keyed 
record. 

Sta nda rd_Sys te m_Ac ti on : In the absence of 
an ON-unit, the system prints a message and 
raises the ERROR condition. 

Normal_Return: A null ON-unit cannot be 
sj-ecified for this condition. 

The_RECORD_Condition 

2§n§£§i_l2EI§t: RECORD (filename) 

Description: The RECORD condition can be 
raised only durin^ a READ, WRITE, REWRITE, 
or LOCATE operation. It is raised in eith- 
er of the following cases: 

1. The size of the record is greater than 
the size of the variable. 

2. The size of the record is less than the 
size of the variable. 
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If the size of the record is greater 
than the size of the variable, the excess 
data in the record is lost on input and is 
unpredictable on output.. If the size of 
the record is less than the size of the 
variable, the excess data in the variable 
is not transmitted on output and is unal- 
tered on input. Note that an ON-unit can 
only be s^ ecified for tape_input_f i,les. 

Standard_Sy_stem_Action: In the absence of 
an ON-unit, the system prints a message and 
raises the ERROR condition. 

Status: RECORD is always enabled; it can- 
not be disabled. 

N2£!<ai_R_§_;turn: Upon execution of a null 
ON-unit, execution continues with the sta- 
tement immediately following the READ sta- 
tement for which RECORD occurred. An ON- 
unit can only be specified for tape input 
files; in all other cases, the standard 
system action is executed. 



The_TRANSMIT_Condition 

General_Format: TRANSMIT (filename) 

Description: The TRANSMIT condition can be 
raised during any input/output operation. 
It is raised by a permanent transmission 
error and, as a result, any data trans- 
mitted is potentially incorrect. During 
input, the condition is raised after 
assignment of the potentially incorrect 
data item or record. During output, the 
condition is raised after the transmission 



of the potentially incorrect data item or 
record has bean attempted. 

S t anda rd_Sy_s te m_Ac ti on : In the absence of 
an ON-unit, the system prints a message and 
raises the ERROR condition. 

Normal_Return: Upon execution of a null 
ON-unit, processing continues with the next 
data item for STREAM I/O, or with the next 
statement for RECORD I/O. 



System Action Condition 

lke_ERROJt_Condition 

Description: The ERROR condition is raised 
under the following circumstances: 

1. As a result of the standard system 
action for an ON-condition for which 
that action is to "print an error mes- 
sage and raise the ERROR condition". 

2. As a result of an error (for which 
there is no ON-condition) occurring 
during program execution (for example, 
taking the SQRT of a negative value) . 

Standard_Systam_Action: In the absence of 
an ON-unit, a message is printed and con- 
trol is returned to the DPS Monitor 
program. 

Norma l_Retur_n: Upon execution of a null 
ON-unit, control is returned to the DPS 
Monitor program. 
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Attributes 



A name appearing in a PL/I program may have 
one of many different meanings. It may, 
for example, be a variable referring to 
arithmetic data items; it may be a file 
name; it may be a variable referring to a 
character string, or it may be a statement 
label or a variable referring to a state- 
ment label. 

Properties, or characteristics, of the 
values a name represents (for example, 
arithmetic characteristics of data items 
represented by an arithmetic variable) and 
other properties of the name itself (such 
as scope, storage class, etc.) together 
make up the set of attributes that can be 
associated with a name. 

The attributes enable the compiler to 
assign a unique meaning to the identifier 
specified in a DECLARE statement. For 
example, if the variable is an arithmetic 
data variable, the scale and precision 
attributes must be associated with the 
name. Associated attributes are those 
which you specifiy in a DECLARE statement 
or which are assumed by default. 

This section discusses the different 
attributes. The attributes are grouped by 
function. Detailed discussions follow, in 
alphabetic order, showing the rules, 
default, and format for each attribute. 



SPECIFIC AT I0N_OF_ATTRIBUTES 

Attributes specified in a DECLARE statement 
must be separated by blanks. However, in 
case of dimension, length, and precision 
attributes, blanks are not necessary. 
Except for the dimension, length, FILE, and 
precision attributes, they may appear in 
any order. The dimension attribute must 
immediately follow the array name; the 
length attribute must follow the CHARACTER 
attribute, and the precision attribute must 
follow the base or scale attribute; the 
FILE attribute must be the first attribute 
in every file declaration. A comma must 
follow the last attribute specification for 
a particular name (or the name itself, if 
no attributes are specified with it) , 
unless it is the last name in the DECLARE 
statement, in which case the semicolon is 
used. For example: 

DCL MASTER FILE RECORD INPUT 

SEQUENTIAL other- attributes, 
A (10,10) FIXED DECIMAL, 
B DECIMAL FIXED (4,2) , 
C CHAR (5) INIT (' JOHN » ) ; 



FACTORING_OF_ATTRIBUTES 

Factoring is achieved by enclosing the 
names in parentheses, and following this by 
the set of attributes which apply. Names 
within the parenthesized list are separated 
by commas. All factored attributes must 
apply to all of the names. No factored 
attribute can be overridden for any of the 
names by a separate specification, but any 
name within the list may be given other 
attributes so long as there is no conflict 
with the factored attributes. 

Except for the dimension i _INITIAL / and 
f ile-d esc ription_at tributes , you can factor 
any attributes common to several names in a 
declaration to eliminate repeated specifi- 
cation of the same attribute for many iden- 
tifiers. Note, however, that in Model 20 
PL/I, a pair of factorization parentheses 
cannot contain more than 60 declarations 
and that factoring can be nested to a level 
of eight. (See the fourth example below 
for an illustration of nesting.) 

Note: If elements of structures are fac- 
tored, their level numbers must also be 
factored by preceding the parenthesized 
list. (See the third example below.) 

Examples: 

DECLARE (A,B,C) DECIMAL FIXED (4,2); 
DECLARE (Y DECIMAL (6), F CHARACTER ( 1 0) ) 

STATIC; 
DECLARE 1 A, 2(B,C,D) FIXED DECIMAL (4, 2) ; 
DECLARE( (A, B) FIXED(10), C FLOAT (5)) 

EXTERNAL; 



Data Attributes 



PROBL EM-DAT A_ATTRIBUTES 

Attributes for problem data are used to 
describe arithmetic and character-string 
variables. An arithmetic variable has 
attributes that specify the base, scale and 
precision of the data item. A character- 
string variable has attributes that identi- 
fy it as a character-string variable and 
specify its length. 

The a rithmetic-data_attribut.es are: 

DECIMAL 
FIXED) FLOAT 
(precision) 
PICTURE 
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The string.-data_attributes are: 

CHARACTER 
(length) 

You can also declare other attributes 
for data variables. With the DEFINED 
attribute you can specify that the data 
variable is to occupy the same main-storage 
area as some other data variable. The 
storage class and scope attributes also 
apply to data. With the INITIAL attribute 
you specify initial values for data 
variables. 

An attribute that applies only to array 
variables, is the dimension attribute. It 
specifies the number of dimensions and the 
bounds of an array. 



mitted, what the characteristics of the 
file are, etc. If the same filename is 
declared in more than one procedure, the 
file attributes must not conflict. A 
filename must always have the EXTERNAL 
attribute, either explicitly or by default. 
For file-description attributes see also 
^EE©Il^ix_E i _File_Attributes_arid_Options. 

The f ile-descrip_tion_at tributes are: 

FILE 

STREAM jRECDRD 

INPUT] OUTPUT | UPDATE 

PRINT 

SEQUENTIALI DIRECT 

BACKWARDS 

ENVIRONMENT (option-list) 

KEYED 



PROGRAM- CONTROL_DATA_ATTRIBUTES 

Program-control data are labels and poin- 
ters. You can use them to control the 
execution of your program. The associated 
attributes are LABEL and POINTER. 



ENTRY-NAME ATTRIBUTES 

An entry name is a special type of label, 
namely, the label identifying a PROCEDURE 
statement. With the entry-name attributes 
you specify that the associated name is an 
entry name and describe features of that 
entry point. 

The en try__name_at tributes are: 

ENTRY 

RETURNS 

BUILTIN 

All entry names of procedures that are 
invoked within a procedure must be declared 
in the invoking procedure with the ENTRY or 
RETURNS attribute. The RETURNS attribute 
has to be specified for a function return- 
ing a value that does not have the default 
attributes. It has to appear in both the 
invoking and the invoked procedure (func- 
tion) . In the function, the attributes of 
the value to be returned must be specified 
in the RETURNS attribute in the PROCEDURE 
statement. The PROCEDURE statement of a 
function is the only i-l ace where an attri- 
bute may appear outside a DECLARE state- 
ment. The BUILTIN attribute must be speci- 
fied for the DATE built-in function. 



File Description Attributes 

The file-description attributes establish 
an identifier as a file-name and describe 
characteristics for that file, for example, 
how the data of the file is to be trans- 



Scope Attributes 

With the scope attributes you specify 
whether or not a name declared in a proce- 
dure is to be known only within or also 
beyond the scope of that procedure. 

The scope_at tributes are: 

EXTERNAL 
INTERNAL 

For a discussion of the scope of names, 
see Part I, Recognition_of _Names. 

All external declarations of the same 
identifier in a program are considered as 
declarations of the same variable. The 
scope of the variable name is the union of 
the scopes of all the external declarations 
of this name. 

In all of the external declarations of 
the same identifier, the attributes 
declared must be consistent, since the 
declarations all involve a single variable. 
For example, it would be an error if the 
identifier ID were declared as an EXTERNAL 
filename in one procedure and as an 
EXTERNAL entry name in another procedure in 
the same program. 

The INTERNAL attribute specifies that 
the declared name is not known in any pro- 
cedure other than the one in which it is 
declared. INTERNAL cannot be specified for 
a file or entry name. 

You can declare the same identifier with 
the INTERNAL attribute in more than one 
procedure without regard to whether the 
attributes given in one procedure are con- 
sistent with the attributes given in anoth- 
er procedure, since such declarations refer 
to different variables. 
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Storage Class Attributes 

The storage-class attributes are used to 
specify the class of storage to be allo- 
cated to a data variable. 

The s t o r a g,e - c 1 a s s _a 1 1 r i b u t e s are: 

STATIC 

AUTOMATIC 

BASED (pointer- variable) 



Alphabethic List of Attributes 

Following is a list of attributes along 
wiht a detailed description of each attri- 
bute. Alternative attributes are discussed 
together, with the discussion listed in the 
alphabetic location of the attribute whose 
name is the lowest in alphabetic order. A 
cross-reference to the combined discussion 
appears wherever an alternative appears in 
the alphabetic listing. 

AUTOMATIC t _STATIC A _and_BASED_lStorage-Class 
Attributes^ 

You use the storage-class attributes to 
specify the type of main-storage allocation 
for data variables. 

AUTOMATIC specifies that storage is to be 
allocated upon each entry to the procedure 
in which the declaration has been made 
(either explicitly or by default) . The 
storage area is freed (released) upon exit 
from the procedure. 

STATIC specifies that storage is to be 
allocated when the program is loaded and is 
not to be released until program execution 
has been completed. 

The B A SED_J^oJ.nter- variable) attribute spe- 
cifies a variable that is a description of 
data that can be applied to different loca- 
tions in a storage. 

General Format: 

STATIC! AUTOMATIC! BASED (pointer- variable) 

General Rules: 

1. AUTOMATIC and BASED variables can have 
INTERNAL scope only. STATIC variables 
may have either INTERNAL or EXTERNAL 
scope. 

2. You must not specify storage-class 
attributes for entry names, file names, 
members of structures, DEFINED data 
items, or parameters. 

3. For a structure_ variable, you can spe- 
cify a storage-class attribute only for 
the ma2or-structure_name. The attri- 



bute then applies to all elements of 
the structure. 

4. The following rules govern the use of 
based_ variables: 

a) The pointer_variable must be expli- 
citly declared with the POINTER 
attribute. The pointer variable 
must be an element variable; it can- 
not be an element of a structure, 
and it cannot have the BASED 
attribute. 

b) When reference is made to a based 
variable, the data attributes 
assumed are those of the based vari- 
able, while the associated pointer 
variable identifies the location of 
data. 

c) You can use a based variable to 
identify and describe existing data 
or to obtain storage in a buffer by 
use of the LOCATE statement. 

d) You cannot specify the EXTERNAL 
attribute with a based variable,, but 
you can use a based variable with an 
EXTERNAL pointer variable. 

Assumptions: 

1. If no storage-class attribute is speci- 
fied and the scope is INTERNAL, AUTO- 
MATIC is assumed. 

2. If no storage-class attribute is speci- 
fied and the scope is EXTERNAL, STATIC 
is assumed. 

3. If neither the storage class nor the 
scope is specified, AUTOMATIC is 
assumed. 

BACK WARDS_XFile-Description_At tribute}. 

With the BACKWARDS attribute you specify 
that the records of a SEQUENTIAL INPUT file 
on magnetic tape are to be accessed in 
reverse order, i.e., from the last record 
to the first record. 

General Format: 

BACKWARDS 

General Rules: 

1 . The BACKWARDS attribute applies to 
RECORD files only; you may not specify 
it for STREAM files. 

2. The BACKWARDS attribute applies to tape 
files only. 

3. The BACKWARDS attribute cannot be spe- 
cified for variable- length records. 
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ii§ED_jStora.2e-Class_ Attribute^ 
See AUTOMATIC. 

BUILTIN_jEntrjr_ At tribute). 

In Model 20 PL/I, the BUILTIN attribute 
must be specified with the DATE built-in 
function. For the other built-in functions 
it may be specified, but is not necessary. 

General Format: 

BUILTIN 

General Rule: 

The BUILTIN attribute has to be specified 
with the DATE built-in function. It must 
be the only attribute specified for the 
built-in function. 

For example: 

DCL DATE BUILTIN; 



£SiS^o£_CHARACTM_l£iiaracter-Strin3_pata 
Attribute). 

The CHARACTER attribute (abbreviated CHAR) 
is used to specify character-string 
variables. Together with the CHARACTER 
attribute you have to specify the length 
attribute. 

General Format: 

/cHARACTERWlength) 
(CHAR / 

General Rules: 

1. With the length attribute you specify 
the length of the declared string. It 
must be a decimal integer constant, 
unsigned and greater than zero. The 
maximum length specification is 255. 

2. The length attribute must immediately 
follow the CHARACTER attribute at the 
same factoring level, with or without 
intervening blanks. 



DECIMAL_j;Arithmetic-Data_Attributel_ 

With the DECIMAL attribute you specify that 
the base of the data item represented by an 
arithmetic variable is decimal. In Model 
20 PL/I, arithmetic variables can only have 
the DECIMAL base. 

General Format: 

DECIMAL 



General Rule: 

The DECIMAL attribute cannot be specified 
with the PICTURE attribute. 

Assumptions: 

Identifiers that are not explicitly 
declared (or identifiers declared only with 
dimension, storage class, and scope attri- 
butes) are invalid if they begin with any 
of the letters I to N. If they begin with 
any other alphabetic character, they are 
assumed to be arithmetic variables with the 
default attributes FLOAT DECIMAL (6) . 

DEF_or_DEFINED_XData_Attribute)_ 

The DEFINED attribute (abbreviated DEF) 
specifies that the variable being declared 
is to represent part or all of the same 
storage area as that assigned to another 
variable. The DEFINED attribute can be 
declared for element, array, or major- 
structure variables. 

General Format: 

( DEFINED)base-identifier 
\DEF ] 

The base_identif ier is an unsubscripted 
variable whose location in main storage (or 
part of it) is also to be represented by 
the variable being declared. 

Rules for Defining: 

1. 3fou cannot specify INITIAL, storage- 
class, and scope attributes for the 
3§£ill§3_variable. Note that although 
the base identifier can have the 
EXTERNAL attribute, the def ined_vari- 
able always has the INTERNAL attribute 
and cannot be declared with any scope 
attribute. If the base identifier is 
external, it will be known in all pro- 
cedures in which it has been declared 
external, but the name of the defined 
variable will not. However, the value 
of the defined variable will be changed 
if the value of the base identifier is 
changed in any procedure. The defined 
variable cannot be a minor structure or 
an element of a structure. 

2. The base_identif ier must always be 
known within the block in which the 
defined variable is declared. The base 
identifier cannot have the DEFINED 
attribute; it cannot be a based vari- 
able, a pointer variable or a 
parameter. 

3. The base identifier cannot be a minor 
structure or an element of a structure. 
However, it can be a major structure, 
and it can also be an array. 
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There are two types of defining : simple 
defining and st ring- over lay__definincj. 
Simple defining is given if both the 
defined variable and the base identifier 
have identical formats. String-overlay 
defining is given when the formats are not 
identical. 

SimpJLe_Def ining 

Simple defining means that a reference to 
an element of the defined variable is 
interpreted as a reference to the corres- 
ponding element of the base identifier. 

Corresponding structures must have the 
same structuring. Corresponding arrays 
must have the same number of dimensions and 
bounds. The elements of the base identifi- 
er and the elements of the defined item 
must have the same description. 

String- Overlay,_Def ining 

String-overlay defining means that the 
defined variable is to occupy part or all 
of the storage area allocated to the base 
identifier. In this way, changes to the 
value of either variable may be reflected 
in the value of the other. String-overlay 
defining is permitted between 

a) character-string variables, 

b) numeric-character variables, and 

c) aggregates consisting of items a and b. 

The extent of the defined variable must 
not be larger than the extent of the base 
identifier. The extent is calculated by 
summing the lengths of the elements of a 
variable, e.g., all individual elements of 
an array. 

Dimension (.&.£.ray__At tribute]^ 

With the dimension attribute you specify 
the number of dimensions of an array and 
the bound of each dimension. 

General Format: 

(bound [ ,bound[, bound]]) 

General Rules: 

1. The number of bounds specifies the num- 
ber of dimensions in an array. As 
shown by the general format, the maxi- 
mum number of dimensions allowed in 
Model 20 PL/I is three. 

2. Each bound must be an unsigned decimal 
integer constant greater than zero. 
This number specifies the upper bound 
of the corresponding dimension. The 



lower bound is always assumed to be 1. 
Therefore, this number also specifies 
the extent of the corresponding dimen- 
sion. For example, if a bound is 8, 
the extent of that dimension is 1, 2, 



3. The dimension attribute must immediate- 
ly follow the array name. Intervening 
blanks are optional. The dimension 
attribute cannot be factored. 

Example: 

DECLARE ARRAY (2,5,10); 

The numbers 2, 5, and 10 are the bounds 
of a three-dimensional array of 100 ele- 
ments. You obtain the number of elements 
in an array by multiplying the bounds with 
each other. 



PIRECr_and_SE2U£NTIAL_lFile- Description 
A,££E±.butesL. 

With the DIRECT and SEQUENTIAL attributes 
you specify the manner in which the records 
of a RECORD file are to be accessed. 
SEQUENTIAL specifies that the records are 
to be accessed according to their logical 
sequence in the file. DIRECT specifies 
that the records are to be accessed by use 
of a key. Each record of a direct file 
must, therefore, have a key associated with 
it. 

General Format: 

SEQUENIIALJDIRECT 

General Rules: 

1. DIRECT files must also have the KEYED 
attribute which, if not explicitly spe- 
cified, is implied by DIRECT. 
SEQUENTIAL files may have the KEYED 
attribute only if the SEQUENTIAL attri- 
bute is associated with a file of 
INDEXED organization. 

2. The DIRECT and SEQUENTIAL attributes 
cannot be specified with the STREAM 
attribute. 

Assumption: 

Default is SEQUENTIAL for RECORD files. 

ENTRY_Attribute 

With the ENTRY attribute you specify that 
the associated identifier is an entry name. 

General Format: 

ENTRY 
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General Rules: 

1. The ENTRY attribute must be specified 
for every entry name that is referred 
to in a procedure, unless RETURNS is 
specified, which implies the ENTRY 
attribute. 

2. The ENTRY attribute must not be speci- 
fied for built-in functions. 

assumptions: 

The appearance of a name as a label of a 
PROCEDURE statement is an explicit decla- 
ration of that name as an entry name. How- 
ever, if you want to refer to that entry 
name from within another procedure, you 
have to explicitly declare that identifier 
with the ENTRY attribute in the invoking 
procedure. 

ENV_or_ENVIRONMENT_iFile-Description 
Attribute), 

The ENVIRONMENT attribute (abbreviated ENV) 
is an attribute that specifies various file 
characteristics that are not part of the 
PL/I language. 



General Format: 



/ENVIRONMENT) (option 
\ENV / 



s-list) 



The option list is defined individually 
for each implementation of PL/I. For Model 
20 PL/I, it is as follows: 

[-CONSECUTIVE"] 
LINDEXED J 

F (blocksize [ ,recordsize ])~j 

V (maxblocksize) 

U (maxblocksize) 
[BUFFERS (1 | 2) ] 

MEDIUM (symbolic-device-address, 
device-type) 
[ CTLASA] 
[LEAVE] 
[ NOTAPEMK] 
[NOLABEL] 
[ VERIFY] 
[NOWRITE] 

[KEYLENGTH (decimal-integer-constant) ] 
[ EXTENTNUMBER (decimal-integer-constant) ] 
[OFLTRACKS (decimal-integer-constant) ] 
[KEYLOC (decimal-integer-constant) ] 
tALTTAPE] 

General Rules: 



1. 



Each file declaration must include the 
ENVIRONMENT attribute. 



2. The options must be separated by one or 
more blanks. 



IXl_or_EXTERNAL_and_INTERNAL_iScope 
Attributes), 

The EXTERNAL (abbreviated EXT) and INTERNAL 
attributes specify the scope of a name. 
INTERNAL specifies that the name is to be 
known only in the declaring procedure. 
EXTERNAL specifies that the name may be 
known in other procedures containing a dec- 
laration of the same name with the EXTERNAL 
attribute. 

General format: 

EXTERNALI EXT| INTERNAL 

General Rules: 

1. All file and entry names must be 
external. They cannot be declared as 
internal. 

2. All external names are restricted, in 
Model 20 PL/I, to a length of six 
characters. 

Assumptions: 

INTERNAL is assumed for variables with any 
storage class. EXTERNAL (abbreviated EXT) 
is assumed for filenames and entry names. 



FILE Attribute 



With the FILE attribute you specify that 
the identifier being declared is a 
filename. 

General Format: 

FILE 

General Rule: 

The FILE attribute must be explicitly 
declared for each filename. It must be the 
first attribute in a file declaration. 
File declarations cannot be factored. 



E£XED_and_FLOAT_j[Arithme tic-Dat a 
Attributes^ 

With the FIXED and FLOAT attributes you 
specify the scale of the arithmetic vari- 
able being declared. FIXED specifies that 
the variable is to represent fixed-point 
data items. FLOAT specifies that the vari- 
able is to represent floating-point data 
items . 

General Format: 

FIXED| FLOAT 
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General Rule: 

You cannot specify the FIXED and FLOAT 
attributes with the PICTURE attribute. 

Assumptions: 

Identifiers that are not explicitly 
declared (or identifiers declared only with 
the dimension, storage class, and scope 
attributes) are invalid if they begin with 
any of the letters I to N. If they begin 
with any other alphabetic character, they 
are assumed to be arithmetic variables with 
the default attributes FLOAT DECIMAL (6) . 

L LO A T_1A r it hmetic-Data_At tribute]_ 

See FIXED. 

IEIT_.or_INITIAL_iData_Attribute)_ 

With the INITIAL attribute (abbreviated as 
INIT) you can specify an initial value for 
a variable. The initial value is assigned 
to the variable at the time storage is 
allocated for it. 

General Format: 



jINITIAL\(item[ f item].. .; 
\INIT / 



General Rules: 

1. You may specify the INITIAL attribute 
for element variables and arrays. How- 
ever, you cannot specify it for arrays 
of the storage class AUTOMATIC. 

2. The variables you can initialize may 
either be arithmetic, character-string 
or label variables. 

3. INITAL values cannot be declared for 
BASED variables, DEFINED variables, 
structures, parameters, STATIC LABEL 
variables and arrays, POINTER 
variables, file names and entry names. 
In a structure_declaration, the INITIAL 
attribute can only be used in the dec- 
laration of elementary_names. 

4. Each item in the list following the 
INITIAL attribute may either be an 
§.Lithmetic_constant, a character -string 
constant, or an iteration 
specification . 

5. The iteration_s£ecif ication has one of 
the following general forms: 

(iteration-factor) constant 
(iteration-factor (item [,item]. ..) 

Iteration factors must be unsigned dec- 
imal integer constants. The iteration 
factor specifies the number of times 



the constant, or item list, is to be 
repeated in the initialization of ele- 
ments of an array. If a constant fol- 
lows the iteration factor, then the 
specified number of elements are to be 
initialized with that value. For 
example: 

DCL B (5,5) DECIMAL FIXED STATIC INIT 
((25)0) ; 

In this DECLARE statement, the 25 ele- 
ments of the array B are initialized to 

0. If a list of items follows the 
iteration factor, then the list is to 
be repeated the specified number of 
times, with each item initializing an 
element of the array; for example: 

DCL C (10,10) STATIC FLOAT INIT (1,(9) 
((10)0,1)); 

In this iteration specification, the 
first element is to be initialized to 

1, then the item list ((10)0,1) is to 
be repeated nine times. In this case, 
all diagonal elements of the matrix C 
are initialized to 1, while all other 
elements are initialized to 0. The 
iteration specification must not con- 
tain more elements than the array. 

For initialization of character-string 
data, if only one parenthesized integer 
constant precedes the string initial 
value, the expression is interpreted to 
be a string_repetition_f actor for the 
string; that is, it is interpreted as a 
part of the specif ication of the value 
for a single element. Consequently, in 
order to cause initialization of more 
than one element in a character string, 
both the string repetition factor and 
the iteration factor must be explicitly 
stated, e v en_i f _t he_s t r i ng_rep_e t i ti on 
f actor_is_J..1)_. For example, consider 
the following 

((2) 'A') is equivalent to ('AA') (for 
a single element) 

((2) (1) 'A') is equivalent to 
('A^'A') (for two elements) 

The depth of nested iteration factors 
in an INITIAL attribute is restricted 
to three in Model 20 PL/I. In the 
example 

DCL C (10,10) STATIC FL3M INIT 
(1(9) ((10) 0,1)) ; 

the INITIAL attribute of the two- 
dimensional array C has a nested depth 
of two. 

The INITIAL attribute cannot be 
factored. 
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INPUT___U_PUT__and_UPpATE__F_le- Description 
&_______<___ 

The INPUT, OUTPUT, and UPDATE attributes 
indicate the function of the file. With 
INPUT you specify that data is to be trans- 
mitted from the file to the program. With 
OUTPUT you specify that data is to be tran- 
smitted from the program to the file. A 
new file is created, or, with INDEXED 
organization, an existing file may be 
extended at its end. With UPDATE you spe- 
cify that data can be transmitted in either 
direction; that is, records of the file are 
read, updated, and rewritten. In case of 
INDEXED DIRECT files, file extension is 
possible. 



General Format: 

INPUT] OUTPUT | UPDATE 
General Rules: 

1. For a file with the INPUT attribute you 
cannot specify the PRINT attribute. 

2. A file with the OUTPUT attribute cannot 
have the BACKWARDS attribute. 

3. For a file with the UPDATE attribute, 
you cannot specify the STREAM, BACK- 
WARDS, or PRINT attributes. A decla- 
ration of UPDATE for a SEQUENTIAL file 
indicates the update- in-place mode. To 
access such a file, the sequence of 
statements must be READ, and then 
optionally, REWRITE. 

4. For each file you have to specify one 
of the above attributes, unless you 
have declared the file with the PRINT 
attribute, in which case, OUTPUT is 
implied. 

5. You cannot specify OUTPUT for INDEXED 
DIRECT files. 

Assumption: 

The PRINT attribute implies OUTPUT,, 



I_____A___Sco_e_Attribut_)_ 
See EXTERNAL. 

KEYED__[File-pescription_ At tribute). 

With the KEYED attribute you specify that 
each record in the file has a key asso- 
ciated with it. 

General Format: 

KEYED 



General Rules: 

1. A KEifED file can be read sequentially 
only if it has the INDEXED option and 
SEQUENTIAL attribute. 

2. Ion can specify the KEYED attribute 
only for a file residing on a direct- 
access storage device. 

Assumption: 

The DIRECT attribute implies KEYED. 

LA BE L_XProg.ram-Control_pat.a_At tribute). 

With the LABEL attribute you specify that 
the identifier being declared is a label 
variable and is to have statement labels as 
values. 

General Format: 

LABEL 

General Rules: 

1. The variable can have as values any of 
the statement labels known within the 
scope of the variable. 

2. Label variables and arrays must not be 
contained in structures. 

3. A label variable cannot be assigned an 
entry name as value. 

___qth__Cha_acter_Strinq_Attr ______ 

See CHARACTER. 

OUTPUT ___ile-pescriEtio___ttri_ute_ 

See INPUT. 

PIC_or_PICTURE_ipata_At tribute). 

You use the PICTURE (abbreviated PIC) 
attribute to specify the internal and 
external formats of numeric-character data 
and to define the editing of data. 
Numeric-character data is data having an 
arithmetic value but stored internally in 
character form. Before arithmetic opera- 
tions can be performed, numeric-character 
data is converted to coded arithmetic. 

General Format: 

imeric- picture- specification' 



(PICTURE) 'nui 
\PIC / 



The numeric-£icture_s£ecification is 
composed of a string of picture- 
specification characters enclosed in apos- 
trophes (as shown in the format) . 
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You find a detailed description as well 
as a table of picture-specification charac- 
ters in the section Pic ture^Specifi cation 
Characters. 

£OIIIER_ JPrgaram- Con trol_Data_At tribute^ 

With the POINTER attribute you specify that 
the identifier being declared is a pointer 
variable and can be used to identify data 
declared with the BASED storage-class 
attribute. 

General Format: 

POINTER 

General Rules: 

1. You can specify the POINTER attribute 
for an identifier only in a DECLARE 
statement. Thus, you have to explicit- 
ly declare a pointer variable with the 
POINTER attribute. 

2. There ace two ways of assigning a value 
to a pointer variable: 

a. by pointer assignment, and 

b. by the SET option in a READ or 
LOCATE statement. 

3. Pointer data cannot appear as an 
operand in an arithmetic expression, 
nor can conversion be performed between 
pointer data and other data types. 

4. The only operators that can be used 
directly with pointer data are the com- 
parison operators = and 1 =. 

5. Pointer variables cannot be used with 
STREAM I/O. 

6. A pointer variable cannot have the 
BASED attribute. 

7. A pointer variable cannot be an element 
of a structure or of an array. 

8. POINTER variables must not be defined. 

PE§cision__(Arithmetic2Data_Attribute)_ 

You use the precision attribute to specify 
the minimum number of significant digits to 
be maintained for the values of variables, 
and to specify, for fixed-point decimal 
variables, the scale factor (i.e., the 
assumed position of the decimal point) . 

General Format: 

(number-of-digits [ , scale-factor ]) 

The number_of_digits and scale_factor 
are unsigned decimal integer constants. 



The number of digits cannot be zero. The 
precision-attribute specification is often 
represented, for brevity, as (p,q) , where p 
represents the number of digits and g 
represents the scale factor. 

General Rules: 

1. The precision attribute must immediate- 
ly follow, with or without intervening 
blanks, the scale (FIXED or FLOAT) , or 
base (DECIMAL) attribute at the same 
factoring level. 

2. The number of digits specified is the 
number of digits to be maintained for 
data items assigned to the variable. 
The scale factor specifies the number 
of fractional digits. No point is 
actually present; its location is 
assumed . 

3. The scale factor is a decimal integer 
constant that states the number of 
digits to the right of the decimal 
point. It can be used only with fixed- 
point variables. 

4. When the scale factor is not specified 
for fixed-point data, it is assumed to 
be zero; that is, the variable is to 
represent integers. 

5. The maximum precision allowed in Model 
20 PL/I is 15. The scale factor may 
range from to 15. 

Assumptions: 

The defaults in Model 20 PL/I are as 
follows: 



(5,0) 
(6) 



for DECIMAL FIXED 
for DECIMAL FLOAT 



£2 INT _lFile-Description_At tribute). 

With the PRINT attribute you specify that 
the data of the file is ultimately to be 
printed. The PAGE and SKIP options of the 
Par statement and the PAGESIZE option of 
the OPEN statement can be used only with 
files having the PRINT attribute. These 
options are described in the section 
Statements. 

General Format: 

PRINT 

General Rules: 

1 . The PRINT attribute implies the OUTPUT 
and STREAM attributes. 

2. The PRINT attribute causes the first 
data byte within each record to be 
reserved for an ASA printer-control 
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character. To account for this control 
character any length specification of 
the record must be 1 plus the length of 
the print line. The control characters 
are set by the PAGE and SKIP format 
items or options in the PUT statement. 



RECORD_and_STEEAM_j[ File- Description 
attributes! 

With the RECORD and STREAM attributes you 
specify the kind of data transmission to be 
used for the file, STREAM indicates that 
the data of the file is considered to be a 
continuous stream of data items, in charac- 
ter form, to be assigned from the stream to 
variables, or from expressions into the 
stream. RECORD indicates that the file 
consists of a collection of physically 
separate blocks, each of which consists of 
one or more records in any form. Each 
record is transmitted as an entity directly 
to or from a variable or directly to or 
from a buffer. 

General Format: 

RECORD] STREAM 

General Rules: 

1. A file with the STREAM attribute can be 
referenced only in the OPEN, CLOSE, 
GET, and PUT statements. 

2. A file with the RECORD attribute can be 
referenced only in the OPEN, CLOSE, 
READ, WRITE, REWRITE, and LOCATE 
statements. 

3. A file with the STREAM attribute cannot 
have any of the following attributes: 
UPDATE, DIRECT, SEQUENTIAL, BACKWARDS, 
and KEYED. 

4. A file with the RECORD attribute cannot 
have the PRINT attribute. 



General Rules: 

1. The RETURNS attribute must be specified 
as follows: 

In the invoking_procedure: 

DECLARE entry-name [ENTRY] RETURNS 
(attributes-list) ; 

In the inyoked_p_rocedure: 

entry-name: PROCEDURE [ (parameter- 
list) ] RETURNS (attributes-list) ; 

2. The RETURNS attribute in the DECLARE 
statement implies the ENTRY attribute; 
hence, you can omit ENTRY in the 
DECLARE statement of the invoking 
procedure. 

3. The attributes in the parenthesized 
list following the keyword RETURNS have 
to be separated by blanks. The attri- 
butes specified in the attributes list 
following the keyword RETURNS in the 
invoking as well as in the invoked pro- 
cedure must be identical. 

4. You can specify only arithmetic, 
character-string, PICTURE, or POINTER 
attributes with the RETURNS attribute. 

5. The RETURNS attribute must not be spe- 
cified for built-in functions. 

Assumptions: 

If the RETURNS attribute is not specified 
and the entry name referred to in the func- 
tion reference does not start with any of 
the letters I to N, the value returned by 
the invoked function is assumed to have the 
default attributes FLOAT DECIMAL (6) . If 
the entry name starts with any of the let- 
ters I to N, the RETURNS attribute has to 
be specified. 



Assumptions : 

Default is STREAM. 

RETURNS _JEntry-Name_Attribute]L 

You must specify the RETURNS attribute when 
a function invoked by a function reference 
returns a value that has attributes other 
than the default attributes FLOAT DECIMAL 
(6) . It must appear in the invoking as 
well as in the invoked procedure. 

General Format: 

RETURNS (attributes-list) 



SEQUENriAL_lFile-Descri£tion_At tribute^ 
See DIRECT. 

STATIC_JStgrage-Class_Attribute}_ 

See AUTOMATIC. 

STRE A M_XFile-Description_At tribute! 

See RECORD. 

J P DAT E_j[ File- De script ion_At tribute! 

See INPUT. 
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Statements 



This section presents the PL/I statements 
in alphabetical order. Host statements are 
accompanied by the following information: 

1* ZHH2£ion — a s h° rt description of the 
meaning and use of the statement. 

2. General_f ormat -- the syntax of the 
statement. 

3« Sy_ntax_rules -- rules of syntax that 
are not reflected in the general 
format. 

4. Ggneral_rules -- rules governing the 

use of the statement and its meaning in 
a Model 20 PL/I program. 

The_&ssignment_Statement 

Function: 

The assignment statement evaluates expres- 
sions and assigns values to elements, 
arrays, or structures. 

General formats: 

The assignment statement has five general 
format types. They are shown in Figure 19. 



Syntax Rules 



In Type_1, the variable in the receiv- 
ing field (i.e., to the left of the 
equal sign) must represent a single 
element whose data type is arithmetic 
or character-string. 



2. In TyE§_2, the variable in the receiv- 
ing field must represent an array of 
arithmetic or character-string 
elements. 

If an expression appears to the right 
of the equal sign, the value of the ex- 
pression is assigned to each element of 
the array in the receiving field. 

If an array name appears to the right 
of the equal sign, the array in the 
receiving field must have the same num- 
ber of dimensions and identical bounds. 

3. In Ty_p_e_3, the variable in the receiv- 
ing field must represent a structure 
and each element of the structure must 
be an arithmetic or character-string 
element. 



l2E§_ll Ii§ffi§St_Assiqnment 

J element-variable) = expression; 
\ pseudo- variable / 

Ty_E§_2i AE£ay_Assignment 

array-name =/ array-name) 

(expression/; 

Typ_e_3j. S true ture_ Assignment 

structure-name = structure-name; 

Ty.te_4i Statemet-Label_Assignment__[2_f grms)_ 

a. element-label-variable =/label-constant ) 

(element- label- variable J; 



b. label-array 



label- constant 
={element-label-variable); 
llabel-array 



Ty_p_e_5j. Point er_Assi£nment 

pointer- variable 



= pointer-expression; 



Figure 19. Assignment Statement Types 
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The structure name to the right of the 
egual sign must have the same relative 
structuring as the structure name to 
the left and corresponding elementary 
items of both structures must have the 
same attributes. 

This means that you can assign minor 
structures to major structures and vice 
versa, if the relative structuring is 
the same and the corresponding elemen- 
tary items in both the minor and the 
major structure have the same attri- 
butes. For example: 

DCL 1 INDEX_REC, 

2 KEY CHAR (12) , 
2 OTHER CHAR (63) , 
1 OUTREC, 

2 CTL_CHAR CHAR (1) INIT (•»•)# 
2 RECORD, 

3 KEY CHAR(12) , 
3 OTHER CHAR (63) ; 



RECORD = INDEX_REC; 

In this example, the major structure 
INDEX_REC is assigned to the minor 
structure RECORD. Except for the level 
numbers (which need not be identical) , 
both structures have the same structur- 
ing and the same attributes. 

4. In Type_4, item b, if a label constant 
or an element label variable appears on 
the right, then the constant or the 
value of the variable is assigned to 
every element in the label array in the 
receiving field. 

If a label array appears on the right, 
then the number of dimensions and the 
bound of each dimension of that array 
must be identical to those of the label 
array in the receiving field. 

5,. In Ty.p_e._5, an elejnent J£oinJ_ex_ex;pres- 
__ .!l i s either an element pointer vari- 
able or a function reference that 
returns an element pointer value. 

General Rules: 

1. The assignment statement is evaluated 
as follows: 

a. For Types 1, 4, and 5, any expres- 
sions that appear in the receiving 
field,, either in subscripts or in 
pseudo-variables, are evaluated 
from left to right. The expression 
on the right of the egual sign is 
evaluated and its value is assigned 
to the variable in the receiving 
field. 



For Types 2 and 3, the assignment 
statement is treated as a seguence 
of element assignment statements 
involving corresponding elements of 
the arrays or structures concerned. 
For arrays, the elements are 
assigned in row-major order;. for 
structures, the elements are 
assigned in the order in which they 
were declared. 



c. Except for Type 3, the value of the 
expression on the right is, when 
necessary converted to the charac- 
teristics of the variable in the 
receiving field according to the 
rules given under Expressions. 

2. When a variable in the receiving field 
is a character string, the expression 
on the right is evaluated as described 
in general rule 1, and the assignment 
is performed from left to right, start- 
ing with the leftmost character posi- 
tion. The following may also apply: 

a. If the value of the expression is 
longer than the character string, 
the value is truncated on the right 
to match the length of the string. 

b. If the value of the expression is 
shorter than the character string, 
the value is extended on the right 
with blanks. 

3. Label-array assignment as shown in Type 
4 follows the rules given for array 
assignment in general rule 1. 



Example_1: 

The following example illustrates array 
assignment: 

Given the array A 2 4 

3 6 
1 7 

4 8 

and the array B 15 

7 8 
3 4 

6 3 

Consider the assignment statement 

A = B; 
After execution, A has the value: 

1 5 

7 8 
3 4 
6 3 
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Consider the assignment statement: 

a = 2-mi,1) ; 

After execution, A has the value: 

2 

2 2 

2 2 

2 2 

Note that the new value for A (1,1), which 
is r is used in evaluating all other 
elements. 

E x _______ : 

The following example illustrates 
character-string assignment: 

Given: 

A is a string whose value is 'XZ/BQ'. 
B is a string whose value is ' MAFY'. 
C is a string of length 3. 
D is a string of length 5. 

Then in the statement: 

C = A, the value of C is 'XZ/'. 

C = 'X', the value of C is 'Xbb'. 

D = B, the value of D is 'MAFYb'. 

D = SUBSTR (A, 2,3) | | SUBSTR (A, 2, 3), the 

value of D is 'Z/BZ/'. 
SUBSTR (A, 2, 4) = B, the value of A is 

'XMAFI'. 
SUBSTR (B,2,2) = ' R' , the value of B is 

«MRbZ'. 

Exa_ple_3: 

The following example (where A, B, and C 
are element variables) illustrates element 
assignment : 

A = A + SIN(B) + C ** 2; 

Exam_le__: 

The following example illustrates structure 
assignment: 

DECLARE 1 X, 2 Y, 2 Z, 2 R, 3 S, 3 P, 
1 A, 2 B, 2 C, 2 D, 3 E, 3 Q; 

X = A; 

The assignment statement is equivalent to: 



X.Y = A.B 

X . Z = A . C 

X.S = A.E 

X. P = A.Q 

Example_5: 



The following example illustrates 
statement-label assignment: 



DECLARE P LABEL; 
P = A ' 
GO TO P; 



A: X = Y ** 2; 

This set of statements causes control to 
transfer to A when the" GO TO P statement is 
executed. 

E xa mpl e_6 : 

The following example illustrates conver- 
sion of data defined by a picture descrip- 
tion assigned to floating-point data, and 
vice versa: 

DCL A FLOAT, B PIC '999V99'; 

A = B; (B is converted from fixed-point 
numeric character to 
floating-point) 

B = A; (A is converted from floating- 
point to fixed-point numeric 
character) 

The___LL_Stat_men_ 

Function: 

The CALL statement invokes a procedure and 
causes control to be transferred to the 
entry point of that procedure. 

General Format: 

CALL entry-name (argument [, argument ]...) ; 

Syntax Rules: 

1. The entry name (i.e., the label of the 
PROCEDURE statement) represents the 
entry point of the procedure being 
invoked. The entry point of a proce- 
dure is always the first executable 
statement in the invoked procedure. 

2. An argument can be any expression 
except a based variable, a built-in 
function name, a file name, an entry 
name, or a label. 

Examples of valid arguments include 
minor structure names, pointer expres- 
sions, character-string constants, and 
array names. 

Note, however, that if the attributes 
of an argument are not consistent with 
those of its corresponding parameter, 
no conversion is performed and an error 
will result. 

General Rule: 

See the section ArgLument.s_and_Paramet.ers, 
for detailed descriptions of the interac- 
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tion of arguments with the parameters that 
represent these arguments in the invoked 
procedure. 

The_CLOSE_Statement 

Function: 

The CLOSE statement de-activates the named 
file which was activated by a previous 
opening. It also dissociates from the spe- 
cified file PAGESIZE, if specified in the 
OPEN statement for that file. However, all 
attributes explicitly specified for that 
file in a DECLARE statement remain in 
effect. 

General Format: 

CLOSE FILE (filename) [, FILE (filename) ]... ; 

General Rules: 

1. The filename in the FILE (filename) spe- 
cification indicates the file to be 
closed. Since more than one such spe- 
cification can be given in a CLOSE sta- 
tement, more than one file can be 
closed by one CLOSE statement. 

2. A closed file (except an INDEXED file) 
may be reopened after it has been 
closed. 

3. Closing an unopened file, or a pre- 
viously closed file, has no effect. 

4. If a file is not closed by a CLOSE sta- 
tement, it is automatically closed at 
the completion of the program in which 
it was opened. 

The_DCL_or_DECLARE_Statement 

Function: 

The DECLARE (abbreviated DCL) statement is 
the principal method for explicitly declar- 
ing attributes of names. 

General Format: 

/DECLAREH level] identifier [attribute]... 
(DCL /[, [level] identifier 

[ attribute ],. . . ]. . . ; 

Syntax Rules: 

1* k§Y.el is a nonzero unsigned decimal 

integer constant which must not exceed 
255. It can appear only in structure 
declarations; the major structure must 
have the level 1. A blank space must 
separate a level number from the iden- 
tifier following it. 

2. In general, attributes must immediately 
follow the identifier to which they 



apply (as shown in the general format) . 
However, attributes common to several 
name declarations can be factored to 
eliminate repeated specification of the 
same attribute for many identifiers. 
Factoring is achieved by enclosing the 
involved declarations (non-common 
attributes included) in parentheses and 
following this by the set of common 
attributes. In the case of factored 
elements of structures, the level num- 
ber must precede the parenthesized list 
(a blank is not required between the 
factored level number and the left 
parenthesis) . For example: 

DCL 1 A, 2(B,C,D) CHAR (20) ; 

Dimension INITIAL, and file-description 
attributes cannot be factored. Factor- 
ing can be nested up to a level of 
eight. For more examples of factoring 
see Factoring._of_Attributes in the sec- 
tion Attributes. 

General Rules: 

1 . A major-structure identifier or an 
identifier not contained within a stru- 
cture can be specified in only one 
DECLARE statement within a particular 
procedure. All attributes given expli- 
citly for that identifier must be 
declared together in one DECLARE 
statement. 

2. Attributes of external names, in separ- 
ate procedures and compilations, must 
be consistent. 

3. Labels may be prefixed to DECLARE sta- 
tement, however, such labels are 
treated as comments and, hence, have no 
meaning. 

4. File names must be explicitly declared, 
and the first attribute in a file dec- 
laration must be FILE. 

5. All entry names (except built-in func- 
tion names) referred to in a procedure 
through a CALL statement or a function 
reference must be explicitly declared. 

6. The built-in function DATE must be 
explicitly declared. 

The_DISPLAY_Statement 

Function: 

The DISPLAY statement is used to display a 
one-b/te message on the CPU console, usual- 
ly to the operator. It is used, together 
with the REPLY specification, to allow the 
operator to communicate with the program. 
REPLY permits tha operator to return a one- 
byte message. Execution of the program is 
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IlEg. _1 : 

DO; 
!ElE§_2: 

DO variable = expressionl [TO expression2 ][ B¥ expresion3]; 



i 



j 



Figure 20. General Format of DO Statement 



suspended until the operator has entered 
his reply. 

General Format: 

DISPLAY (expression) REPLY (character- 
string variable) 

General Rules: 

1. The DISPLAY statement displays one 
character in the T-R register. The E-S 
register contains standard information. 
The REPLY specification returns one 
character from the DPS operator com- 
munication byte. 

2. REPLY must be specified. 

3. The expression must result in a charac- 
ter string. 

Ihe_DO_Statement 

Function: 

The DO statement heads a DO-group and can 
also be used to specify repetitive execu- 
tion of the statements within the group. 

General Formats: 

There are two format types for the DO sta- 
tement as shown in Figure 20. 

Syntax Rules: 

1. In both types, the DO statement is used 
in conjunction with the END statement 
to delimit the DO-group. Type 2 pro- 
vides for iterative execution of the 
statements within the group, Type 1 
does not. 

2. The variable in Type 2 must be arith- 
metic and must represent a single ele- 
ment; it cannot be subscripted. For 
example: 

DO COUNTER = 1 TO 10 BY 2; 

In this example, COUNTER is the control 
variable, 1 is expressionl, 10 is 
expression2, and 2 is expression3. 
COUNTER must either be explicitly 



declared to be an arithmetic variable 
or it is given the default attributes 

FLOAT DECIMAL(6) . 

3. Each expression in a DO statement must 
be an element expression. 

4. If B£_expression3 is omitted, and if TO 
§x££§§§i2H2 is included, expression^ is 
assumed to be 1. 

5. If TO expression2 is omitted, iterative 
execution continues until it is ter- 
minated by some statement within the 
group. 

6. If both T3 expression2 and BY expre- 
ssions are omitted from a specifica- 
tion, it implies a single execution of 
the group, with the control variable 
having the value of expressionl. 

General Rules: 

1. In Type 1, the DO statement only deli- 
mits the start of a DO-group; it does 
not provide for iterative execution. 

2. In Type 2, the D3 statement delimits 
the start of a DO-group and provides 
for controlled iterative execution as 
defined by the following: 

LABEL: DO variable = expressionl 

TO expression2 BY expression3; 
statement-1 



statement-m 
LABEL1: 'END; 
NEXT: statement 

The above is exactly equivalent to the 
following expansion: 

LABEL: e1 = expressionl; 
e2 = expression2; 
e3 = expression3; 
v = e1 ; 
LABEL2: IF e3 >= 

THEN IF v > e2 

THEN GO TO NEXT; 
ELSE; 
ELSE IF v < e2 
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THEN GO TO NEXT; 
statement-1 



If control reaches an END statement for 
a procedure, it is treated as a RETURN 
statement. 



statement-m 
LABEL1: v = v + e3; 

GO TO LABEL2-; 
NEXT: statement 

In the above expansion, e1, e2, and e3 
are compiler-created work areas having 
the attributes of expression"!, expre- 
ssion2, and expression3, respectively; 
v is synonymous with variable. 

3« Expressionl represents the initial 

value of the control variable; expre- 
ssions represents the increment to be 
added to the control variable after 
each execution of the statements in the 
group; expression^ represents the ter- 
minating value of the control variable. 
Execution of the statements in a D0- 
group terminates as soon as the value 
of the control variable is outside the 
range defined by expressionl and expre- 
ssion2. When execution of the DO-group 
is terminated, control passes to the 
statement following the DO-group. 

4. If both options, TO and BY, are present 
in an iterative specification, TO must 
occur first. 

5. The control variable must not be 
changed during the execution of an 
iterative specification other than by 
the iterative specification itself. 

6. Control may be transferred from outside 
the DO-group into the DO-group (i.e., 
to a statement in the group other than 
the DO statement) only if the DO-group 
is delimited by a DO statement of Ty^e 
1; that is, only if iterative execution 
is not specified. See also The_DO_Sta- 
tement in Part I of the manual, under 

S tat em en t _C1 as si fie at ion . 

I^§_END_Statement 

Function : 

The END statement terminates DO-groups and 
procedures. 

General Format: 

END; 

General Rules: 

1. The END statement always terminates 
that DO-group or procedure headed by 
the nearest preceding DO or PROCEDURE 
statement for which there is no corres- 
ponding END statement. 



Ihe_FORMAT_Statement 

Function: 

With the FORMAT statement you specify a 
format list that is to be used in edit- 
directed transmission statements to control 
the format of the data being transmitted. 

General Format: 

label: [ label: ]... FORMAT (format-list); 

Syntax Rules: 

1. The format_list must be specified 
according to the rules governing 
format-list specifications with edit- 
directed transmission as described in 
the section DataTransmission. 

2. ifou must specify at least one label for 
a FORMAT statement. In general, one of 
the labels (or a label variable having 
the value of one of the labels) is the 
statement-label designator specified in 
the remote format item. 

General Rules: 

1. A GET or PUT statement may include a 
remote format item, R, in the format 
list of an edit-directed data specifi- 
cation. That portion of the format 
list represented by R must be supplied 
by a FORMAT statement preceded by the 
statement label specified with R. An R 
format item cannot appear in the format 
list of a FORMAT statement. 

2. Zou have to specify the remote format 
item and the FORMAT statement in the 
same procedure. 

3. The format list in a FORMAT statement 
may contain nested iteration factors. 
However, the depth of the nest is 
limited to 2. 

4. If the format list of a GET or PUT sta- 
tement contains a remote format item 

(R (statement-label-designator) ) con- 
tained in an iteration nest, it must 
not be at a depth greater than 2. 



I.he_GET_S tatement 

Function: 

The GET statement is a STREAM transmission 
statement which you can use in either of 
the following ways: 
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It can cause the assignment of data from 
an external source (that is, from a 
file) to one or more internal receiving 
fields (that is, to one or more 
variables) . 

It can cause the assignment of data from 
an internal source (that is, from a 
character-string variable) to one or 
more internal receiving fields (that is, 
to one or more variables) . 



General Format: 



General Format: 



GE 



T / FILE (filename) 
IS 



TRING (character-string-variab 
data-specification ; 



le)} 



Syntax Rules: 

1. The data_s£ecif ication is as described 
in Part I, under Data_Transmission. 

2. The data specification must follow the 
FILE or STRING option one of which must 
be specified. 

3. The _________________________ refers to 

the character string that is to provide 
the values to be assigned to the 
variables in the data specification. 

4. The filename is the name of a file that 
will provide the values to be assigned 
to the variables in the data specifica- 
tion. It must have the STREAM and 
INPUT attributes. 

General Rules: 

1. If the FILE option refers to an 
unopened file„ the file is opened 
implicitly. 

2. If the STRING option has been speci- 
fied, the internal GET operation always 
starts at the beginning of the speci- 
fied string. If the number of charac- 
ters in this string is less than the 
total number of characters required by 
the variables in the data specifica- 
tion, the ERROR condition is raised. 
Note that the variables in the data 
specification do not have to be charac- 
ter strings; the internal assignment is 
the same as the transmission from the 
stream to internal storage, the only 
difference being that the character- 
string variable is considered to be the 
input stream. 

Ihe_GO_TO_statement 

Function : 

The GO TO statement causes control to be 
transferred to the statement identified by 
the specified label. 



(GO T0\ /label-constant; \ 
I GOTO / \element- label- variable; / 



General Rules: 



1. If an ele__nt_lab_l_vari_ble is speci- 
fied, the value of the label variable 
determines the statement to which con- 
trol is transferred. Since the label 
variable may have different values at 
each execution of the GO TO statement, 
control may not always pass to the same 
statement. 

2. A GO TO statement cannot j^ass control 
to an incactive procedure. 

3. A GO TO statement cannot transfer con- 
trol from outside a DO-group to a sta- 
tement inside the DO-group if the DO- 
group specifies iterative execution, 
unless the GO TD terminates a procedure 
invoiced from within the DO-group or 
unless the GO TO is an ON-unit given 
control from within the DO-group. 

4. If a GO TO statement transfers control 
from within a procedure to a point not 
contained within that procedure, the 
procedure is terminated. Also, if the 
transfer point is contained in a proce- 
dure that did not directly activate the 
procedure being terminated, all inter- 
vening procedures in the activation 
sequence are also terminated (See Part 

Ij Flow_of_Control_a.2d_Storage_Alloc.a- 

__°.Q./ f° r examples and details) . When 
one or more procedures are terminated 
by a GOTO statement, conditions are 
reinstated and automatic variables are 
freed just as if the procedures had 
been terminated in the usual fashion. 

5. When a GOTO statement transfers control 
out of a procedure that has been 
invoked as a function, the evaluation 
of the expression that contained the 
corresponding function reference is 
discontinued. 

6. If the GO TO statement is an ON-unit, 
the specified label must be 
unsubscripted. 



__§_liLStateme_t 

Function: 

The IF statement tests the value of a spe- 
cified expression and controls the flow of 
execution according to the result of that 
test. 
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General Format: 

If element-expression THEN unit-1 

[ELSE unit-2] 

Syntax Rules: 

1. Each unit is either a single statement 
or a DO-group. It must, however, not 
be a PROCEDURE, a DECLARE, or FORMAT 
statement. 

2. The IF statement itself is not ter- 
minated by a semicolon; however, each 
unit specified must be terminated by a 
semicolon. 

3. Each unit may be labeled. 
General Rules: 

1. The expression following the keyword IF 
must contain one and only one compari- 
son operation. 

2. If the comparison is true, the THEN 
clause is executed. After execution of 
the THEN clause, control branches 
around the ELSE clause and execution 
continues with the next statement. If 
the comparison is not true, control 
branches around the THEN clause, and 
the ELSE clause is executed. Control 
then continues normally. 




Note that the THEN clause or the ELSE 
clause can contain a GOTO statement or 
some other control statement that can 
cause a different transfer of control. 



IF 



THEN 



THEN clause". In either case,, the next 
sequential statement is executed. If 
the expression tested is not true, con- 
trol continues through the logical flow 
of execution. If the expression is 
true, the THEN clause is executed, and 
control returns to exactly the same 
point where it would have been if the 
expression had not been true. In this 
kind of IF statement the word ELSE must 
not appear since the ELSE clause would 
be skipped whenever the THEN clause it 
executed. 

4. IF statements may be nested; that is, 
either unit, or both, may itself be an 
IF statement. In Model 20 PL/I, the 
number of IF and DO statements in one 
nest must not exceed 20. However, the 
number of DO statements alone must not 
exceed 12 per nest. Any IF statement, 
at any level, may have a DO-group as 
either or both of its alternative 
units. An ELSE clause is always asso- 
ciated with the innermost unmatched IF 
in the same DO-group; an ELSE with a 
null statement may be required to spe- 
cify a desired sequence of control. 

Example: 

IF A > B 

THEN IF C = THEN X = SQRT (A-B) ; 
ELSE X = 1 ; 

In this example, the statement X = 1; 
is executed if A is greater than B and 
C is not equal to 0. 

If the statement X = 1 ; is to be 
executed if A is not greater than B, 
regardless of the value of C, you may 
write the example in the following way: 

IF A > B 

THEN IF C = THEN X = SQRT (A-B) ; 

ELSE; 
ELSE X = 1; 



3. If the THEN clause does not cause a 
transfer of control and if it is not 
followed by an ELSE clause, the next 
statement will be executed whether or 
not the THEN clause is executed. 

This may be illustrated by the follow- 
ing diagram: 



rTHEN- 



rhe LOCATE Statement 




next-statement ■ 



In the kind of IF statement illustrated 
above, the alternatives are "execute 
the THEN clause" or "do not execute the 
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General Format: 



The ON Statement 



LOCATE based-variable FILE (filename) 
SET (pointer-variable) ; 

Syntax Rules: 

1. The FILE and SET specifications must 
appear in the order shown in the gener- 
al format. 

2. The based_variable must be an unsub- 
scripted based variable that is not a 
minor structure or an element of a 
structure. It may, however, be an 
array name or a major-structure name. 

3. The pointer_variable must be an element 
pointer variable. 

4. The filename is the name of the file 
that has been activated (by opening) 
and that will eventually receive the 
record. The file must have the 
SEQUENTIAL and OUTPUT attributes. It 
must, however, not be an INDEXED file. 

General Rules: 

1. The based variable is used to determine 
the length of the buffer area to be 
reserved. When the LOCATE statement is 
executed, the pointer variable in the 
SET specification is set to identify 
the location in the buffer at which the 
based variable is to be allocated. 

2. The record identified by the based 
variable is written from the buffer 
into the output file, immediately 
before the next WRITE, LOCATE, or CLOSE 
operation (implicit or explicit) for 
that file. For blocked records, the 
record is not written until the whole 
block is completed. 

3. The FILE specification must refer to a 
previously opened file. 



The_Null_Statement 

Function: 

The null statement causes no action and 
does not modify sequential statement execu- 
tion. The null statement is represented by 
the semicolon (;). 

General Format: 



General Rule: 

The null statement must not be specified 
for an ON statement whose condition is 
CONVERSION, ENDFILE, or KEY. 



Function: 

With the ON statement you specify what 
action is to be taken when an interrupt 
results from the occurrence of the speci- 
fied exceptional condition. 

General Format: 

ON condition { SYSTEM ; 1 ON-unit } 

For a description of the ON statement and 
the ON-conditions that may be specified 
with it see the section ON-Conditions. 



Ik§_QPEN_Statement 

Function: 

The OPEN statement opens (activates) a file 
by associating a file with a file 
declaration. 

General format: 

OPEN FILE (filename) [option] 

[,FILE (filename) [option]]...; 

where option is 

PAGESIZE (element-expression). 

Syntax Rules: 

1. The FILE specification must appear 
first. 

2. The filename is the name of the file 
that is to be activated. Several files 
can be opened by one OPEN statement. 

General rules: 

1. The opening of an already open file 
does not affect the file. In such 
cases, any expressions in the option, 
if specified, are evaluated, but they 
are not used. 

2. The PAGESIZE option can be specified 
only for a file having the STREAM and 
PRINT attributes. The expression is 
evaluated and converted to an integer, 
which represents the maximum number of 
lines to a page. This integer must be 
greater than zero and less than 256. 
During subsequent transmission to the 
PRINT file, a new page may also be 
started by use of the PAGE format item 
or by an option in the PUT statement. 
For the Model 20 PL/I Compiler, the 
default for PAGESIZE is 60. 

3. When a PRINT file is opened, a new page 
is started. 
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4. The OPEN statement is mandatory for 
RECORD files and optional for STREAM 
files. 

£he_PROCEDURE_Statement 

Function : 

The PROCEDURE statement has the following 
functions: 

a. It heads a procedure and defines its 
entry point. 

b. It specifies the parameters, if any, 
for the entry point. 

c. It may specify certain special charac- 
teristics that a procedure can have. 

d. It specifies the attributes of the 
value that is returned by the procedure 
when it is invoked as a function. 

General Format: 



[ (condition-prefix) : ] 
entry-name: PROCEDURE 

OPTIONS (option-list) 

rameter[ 

[RNS (da- 



( OPTIONS (option-list) \ 
)([ (parameter[ parameter) ]...]\> 
\\[ RETURNS (data-attributes) ] )); 



where, for the Model 20 PL/I Compiler, the 
op_tion_list is defined as: 

MAIN[ ,ONSYSLOG ] 

Syntax Rules: 

1. The data_attributes represent the 
attributes of the value returned by the 
procedure when it is invoiced as a func- 
tion. Only arithmetic, string, 
PICTURE, and POINTER attributes are 
allowed. 

2. OPTIONS is a special procedure specifi- 
cation. Two options can be specified 
in the OPTIONS attribute which must be 
specified for only one external proce- 
dure in the program: 

a. MAIN must be specified if and only 
if the procedure is the initial 
procedure of the program. 

b. 0NSYSL03 specifies that diagnostic 
output is on SYSLOG instead of 
SYSLST. ONSYSLOG can only be spe- 
cified together with MAIN. 

3. One and only one entry name must appear 
in a PROCEDURE statement. The entry 
name must not exceed 6 characters. 

4. The maximum number of parameters that 
can be specified for one procedure is 
12. 



General Rules: 



1. When a procedure is invoked, a rela- 
tionship is established between the 
arguments passed to the procedure and 
the parameters that represent those 
arguments in the invoked procedure. 
This topic is discussed in Part I, 
under Arg_uments_and_Parameters. 

2. The MAIN option specifies that the pro- 
cedure for which it is specified is the 
initial procedure and will be invoked 
by the programming system as the first 
step in the execution of the program. 
The ONSYSLOG option specifies that all 
output resulting from actions derived 
from ON conditions will be printed on 
the device assigned to SYSLOG. No 
other options are permitted. The pro- 
cedure declared with the OPTIONS attri- 
bute remains active for the duration of 
the program and hence cannot be called 
by other procedures. For the Model 20 
PL/I Compiler, only one procedure must 
have the OPTIONS (MAIN) designation. 

3. The data attributes specify the attri- 
butes of the value returned by the pro- 
cedure when it is invoked as a func- 
tion. For details see the section 
4E2H!2§2ts_and_Parameters in Part I. 

4. The entry name of a procedure is an 
external name and as such is restricted 
in Model 20 PL/I to a length of six 
characters. 

5. The name of a procedure must not be 
redeclared within that procedure. 



The_PUT_Statement 

Function: 

The PUT statement is a STREAM transmission 
statement which can be used in either of 
the following ways: 

1 . It can cause the values in one or more 
main-storage locations to be trans- 
mitted to a file on an external medium. 
Related to this, it can control the 
format of a PRINT file. 

2. It can cause the values in one or more 
main-storage locations to be assigned 
to an internal receiving field (repre- 
sented by a character-string variable) . 

General Format: 

with the STRING option: 

PQT STRING (character-string- variable) 
data-specification ; 
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with the FILE option: 

PUT FILE (filename) 

/EDIT aata-specif ication 

}PAGE 

\SKIP (expression) ] 



r | 

JPAGE EDIT data-specif ication \ 

VSKIP f /exDression^ 1 / 



SKIP [ (expression) ] 
data-specification 

Syntax Rules: 

1. Either the FILE or the STRING option 
must be specified in the PUT statement. 

2. The FILE option specifies transmission 
to a file on an external medium. The 
file name in this option is the name of 
the file that has been activated (by 
implicit or explicit opening) and that 
is to receive the values. This file 
must have the OUTPUT and STREAM 
attributes. 

3. The STRING option specifies transmis- 
sion from main-storage locations 
(represented by variables or expres- 
sions in the data_specif ication) to a 
character string (represented by the 
5^§I§£i§Ez§trina_variable) . The 
"character-string variable" cannot be a 
pseu do -variable. 

4. The data specification is as described 
in Part_I x _Data_Transmission. 

5. The FILE or STRING option must always 
be the first option. If the data spe- 
cification appears, it must be the last 
option. At least one of the options 
PAGE, SKIP, or data specification must 
appear. Note that the options PAGE and 
SKIP must not appear both in one PUT 
statement. 



3. The option PAGE or SKIP can be given 
only for PRINT files. If specified, 
they take effect before the transmis- 
sion of the values defined by the data 
specification takes place. 

4. The PAGE option causes printing to con- 
tinue on a new page. If a data speci- 
fication is present, the transmission 
of values occurs after the definition 
of a new current page. A new current 
page implies line 1. 

5. The SKIP option causes a new current 
line to be defined for the file. The 
expression is the number of lines (w) 
to be skipped and may range from zero 
to three inclusive. If w is greater 
than zero, w - 1 blank lines will be 
inserted in the data stream. If w is 
equal to zero, the effect is that of a 
carriage return, the characters pre- 
viously printed will be overprinted. 
(SKIP(O) may be used to 

underline parts of the printed line by 
use of the break character.) If w is 
not specified, 1 is assumed. If less 
than w lines remain on the current page 
(where the number of lines is deter- 
mined by the PAGESIZE option of the 
OPEN statement or by default) , the 
ENDPAGE condition is raised. 



Ih§_BSAD_Statement 

Function: 

The READ statement is a RECORD transmission 
statement that you can use to transmit a 
record from an INPUT or UPDATE file to a 
variable or buffer in main storage. 

General format: 



G-eneral Rules: 

1. If the FILE option is specified, and 
the filename refers to an unopened 
file, the file is opened implicitly. 

2. If the STRING option is specified, the 
PUT operation begins assigning values 
to the beginning of the string (that 
is, at the leftmost character posi- 
tion) , after appropriate conversions 
have been performed. Blanks and deli- 
miters are inserted as usual. If the 
string is not long enough to accommod- 
ate the data, the ERROR condition is 
raised. Note that the variables in the 
data specification do not have to be 
character strings; the internal assign- 
ment is the same as the transmission 
from main storage to the output stream, 
the only difference being that the 
character-string variable is considered 
to be the output stream. 



READ FILE (filename) 
INTO (variable) 
SET (pointer-variable) 
INTO (variable) 

KEY (expression) 

Syntax rules: 



1. The FILE specification must appear 
first. Either INTO or SET must be 

specified. 

2. The filename is the name of the file 
from which the record is to be read. 
The file must have the RECORD attribute 
and must also have either the INPUT or 
UPDATE attributes. 

3. The variable of the INTO option is the 
variable into which the record is to be 
read. It must be an unsubscripted 
variable not contained in a structure. 
It cannot be a label or pointer vari- 
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able or a parameter and it cannot have 
the DEFINED attribute. 

4. KEY can be specified only if INTO is 
specified. 

General Rules: 

1. The file appearing in the FILE specifi- 
cation must have been opened 
previously. 

2. The KEY option must appear if the file 
has the DIRECT attribute. The expres- 
sion is the key that determines which 
record will be read,. (See Part III, 
JHEJJt^Out^ut, for a discussion of keys. 

The KEY option may also appear for 
files of INDEXED organization having 
the SEQUENTIAL and KEYED attributes. 
In such cases, the file is positioned 
to the record having the specified key. 
Thereafter, records may be read sequen- 
tially from that point on by using READ 
statements without the KEY option. 

If the key specified in the KEY option 
of a READ statement for an INDEXED 
SEQUENTIAL file is not found in the 
file the KEY condition is raised. 



invoking procedure at the point logic- 
ally following the point of invocation. 
If a RETURN statement is executed in 
the initial procedure, program execu- 
tion is terminated. 



3. 



The SET 
for CONS 
specif ie 
attribut 
that the 
buffer a 
be set t 
record w 
tion of 
based va 
pointer 
next REA 
until th 



option can only 
ECUTIVE files; i 
d for any file h 
e. The SET opti 
record is to be 
nd the pointer_v 
o point to the 1 
ithin the buffer 
the record is de 
riable. The val 
variable is vali 
D statement is e 
e file is closed 



be specified 
t cannot be 
aving the KEYED 
on specifies 
read into a 
ariable is to 
ocation of that 
The descrip- 
termined by a 
ue of the 
d until the 
xecuted or 



Ihe_RgTURN_Statement 

Function : 

The RETURN statement terminates execution 
of a procedure and returns control to the 
invoking procedure. It may also return a 
value to the invoking procedure. 

General Format: 

RETURN [ (expression) ]; 

General Rules: 

1. If the expression is not specified, the 
RETURN statement can only terminate a 
procedure that has not been invoked as 
a function. When such a statement is 
executed, control is returned to the 
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2. If you have specified 
the procedure from whi 
be returned, must be a 
dure. When such a sta 
executed, control is r 
invoking procedure at 
invocation; the value 
point is the value of 
If this value does not 
explicit or default at 
fied for the procedure 
minated, the value is 
these attributes befor 
returned. 

The REWRITE Statement 



Function: 

You can use the REWRITE statement only for 
UPDATE files to replace an existing record 

in a file. 

General Format: 

REWRITE FILE (filename) [ FROM (variable) 
[KEY (expression)]]; 

Syntax Rules: 

1. The FILE specification must appear 
first. KEY cannot be specified without 
FROM. 

2. The filename is the name of the file 
containing the record to be rewritten. 
The file must have the UPDATE 
attribute. 

3. The variable in the FROM option repre- 
sents the record that will replace the 
existing record in the specified file. 
It must be an unsubscripted variable; 
it cannot be contained in a structure; 
it cannot be a parameter; it cannot be 
a label or pointer variable; and it 
cannot have the DEFINED attribute. 

General Rules: 

1. The file whose name appears in the FILE 
specification must have been opened 
previously . 

2. If the file has the DIREZT attribute, 
you have to specify the KEY option. 
The expression must be a character 
string. This character string is the 
source key that determines which record 
is to be rewritten. 
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3. The FROM option must be specified, for 
UPDATE files of INDEXED organization 
having either the DIRECT attribute or 
the SEQUENTIAL attribute. 

4. The FROM option can be omitted only for 
SEQUENTIAL UPDATE files of CONSECUTIVE 
organization. When this is the case, 
the record rewritten is the record in 
the buffer. Hence, this record must be 
the last record that was read and it 
should have been read by a READ state- 
ment with the SET option. (The record 
will be updated by whatever assignments 
were made to it in the buffer) . If the 
record had been read by a READ with the 
INTO option, it would be rewritten 
unchanged. 



2. The filename specifies the file into 
which the record is to be written. 
This file must be a RECORD file that 
has either the OUTPUT attribute or the 
DIRECT and UPDATE attributes. 



3. The variable in the FROM specification 
contains the record to be written. It 
must be an unsubscripted variable; it 
cannot be a parameter; it cannot be 
contained in a structure, it cannot be 
a label or pointer variable; and it 
cannot have the DEFINED attribute. 

U. The KEYFROM option must be specified 
for DIRECT files, it must also be spe- 
cified for INDEXED SEQUENTIAL files, 
but not for any other files. 



The_WRITE_Statement 

Function: 

The WRITE statement is a RECORD transmis- 
sion statement that transfers a record from 
a variable in main storage to an OUTPUT or 
UPDATE file. 

General Format: 

WRITE FILE (filename) FROM (variable) 
[KEYFROM ( expression)]; 

Syntax Rules: 

1. The FILE specification must appear 
first. 



General Rules: 

1 . The file must have been opened 
previously . 

2. If the KEYFROM option is specified,, the 
expression is the source key that spe- 
cifies the logical location in the file 
where the record is written. (See Part 
III, Input/Output, for a discussion of 
source keys) . In Model 20 PL/I the 
source key automatically replaces the 
recorded key whose length is determined 
by the KEYLENGTH option and whose loca- 
tion in the record is specified in the 
KEYLOC option in the ENVIRONMENT 
attribute. 
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Part III 



Model 20 PL/I as Part of the Disk Programming System 



PL/I in the Model 20 Disk Programming System 



INTROpaCTION 

Model 20 PL/I is part of the System/360 
Model 20 Disk Programming System. It 
requires a minimum of 16,384 bytes of main 
storage. Model 20 PL/I consists of a com- 
piler and a set of subroutines, all operat- 
ing under the control of the DPS System 
Control programs. 

The Model 20 PL/I language is a subset 
of the full PL/I language and, except for 
support of input/output devices that can 
only be attached to a Model 20, is upward 
compatible with the System/360 DOS PL/I 
subset language. 



an IBM 2311 Disk Storage Drive Model 11 or 
12; 

one of the following card reading devices; 

IBM 2.501 Card Reader Model A1 or A2, 
IBM 2520 Card Read-Punch Model M, 
IBM 2560 Multi-Function Card Machine 
(MFCM) Model A1; 

one of the following printers: 

IBM 1403 Printer Model N1, 2, or 7, 
IBM 2203 Printer Model A1. 



SYSTEM_CONFIGURATIONS 

MINIMUM SYSTEM CONFIGURATION 

The minimum system configurations for both 
compilation and execution of PL/I programs 
under the System/360 Model 20 Disk Program- 
ming System are as follows: 

Submodel_2 

An IBM 2020 Central Processing Unit Model 
D2 (16,384 bytes of main storage); 

an IBM 2311 Disk Storage Drive Model 11 or 
12; 

one of the following card reading devices: 

IBM 2501 Card Reader Model A1 or A2, 
IBM 2520 Card Read-Punch Model A1, 
IBM 2560 Multi-Function Card Machine 
(MFCM) Model A1; 

one of the following printers: 

IBM 1403 Printer Model N1 , 2, or 7, 
IBM 2203 Printer Model A1. 

Submodel_4 

An IBM 2020 Central Processing Unit Model 
D4 (16,384 bytes of main storage) ; 

an IBM 2311 Disk Storage Drive Model 12; 

an IBM 2560 MFCM Model A2 ; 

an IBM 2203 Printer Model A2. 

Submodel_5 

An IBM 2020 Central Processing Unit Model 
D5 (16,384 bytes of main storage) ; 



MAXIMUM SYSTEM CONFIGURATION 

Submodel_2 

An IBM 2020 Central Processing Unit Model 
D2 (16,384 bytes of main storage); 

two IBM 2311 Disk Storage Drives Model 11 
or 12 (both must be the same model) ; 

an IBM 2415 Magnetic Tape and Control Unit 
Model 1 through 6 ; 

an IBM 2501 Card Reader Model A1 or A2; 

an IBM 1442 Card Punch Model 5; 

one of the following card units: 

IBM 2520 Card Read-Punch Model A1, 
IBM 2520 Card Punch Model K2 or A3, 
IBM 2560 MFCM Model A1 ; 

one of the following printers: 

IBM 1403 Printer Model N1, 2, or 7, 
IBM 2203 Printer Model A1; 

an IBM 2152 Printer-Keyboard. 

Sabmodel_4 

An IBM 2020 Central Processing Unit Model 
D4 (16,384 bytes of main storage); 

two IBM 2311 Disk Storage Drives Model 12; 

an IBM 2560 MFCM Model A2 ; 

an IBM 2203 Printer Model A2. 

an IBM 2152 Printer-Keyboard. 
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Submodel_5 

An IBM Central Processing Unit Model E5 
(32,768 bytes of main storage); 



four IBM 2311 Disk Storage Drives Model 11 
or 12; 

an IBM 2415 Magnetic Tape Unit and Control 
Model 1 through 6; 

an IBM 2501 Card Reader Model A1 or A2 ; 

an IBM 1442 Card Punch Model 5; 



one of the following card units: 



IBM 2520 Card Read-Punch Model A1, 
IBM 2520 Card Punch Model h2 or A3, 
IBM 2560 MFCM Model A1 ; 



one of the following printers: 



IBM 1403 Printer Model N1, 2, or 7, 
IBM 2203 Printer Model M; 

an IBM 2152 Printer-Keyboard. 
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The Model- 20 Disk Programming System 



To show how programs written in Model 20 
PL/I are compiled and executed under the 
Disk Programming System (DPS) , the main 
components of the DPS must first be 
described. 

The programs that form the Disk Program- 
ming System can be grouped into five cate- 
gories as listed below: 

1 . Control programs 

2. Service programs 

3. Language translators 

4. Several Utility programs 

5. User-written programs 



Disk Programming System 


Control Programs 




Service Programs 




Language Translators and 
Macro Definitions 


Initial Program Loader 


Assembler 

Report Program 
Generator (RPG) 

PL/I Compiler 

Input/Output Control 
System and Monitor 
Macro Definitions 




Monitor Program 


Job Control Program 




General Utility 
Programs 






Sort/Merge 

DPS Disk and Tape 
Utllitlei 












User-Written Programs 



grams, (2) to specify other environmental 
data (e.g., the .date or the storage capaci- 
ty) , and (3) to communicate the name of the 
next program to be executed to the Monitor 
program. 



Serjrice_Programs 

The Service programs are a group of pro- 
grams that create and maintain the system 
libraries. They are executed under control 
of the Monitor. 

The system libraries are: 

• the core_image_library_, which contains, 
for example, the Job Control Program, 
the PL/I Compiler, and executable 
user-programs. 

• the macro_library, which contains macro 
definitions. 

• the r e loc a t abl e_ar e a , which is used to 
temporarily hold compiler output that is 
to be executed or cataloged immediately. 

Language_Translators 

One of the DPS language translator programs 
is the PL/I_compiler which compiles PL/I 
source programs, and links together separ- 
ately compiled PL/I procedures and library 
routines into an executable object program. 

For the execution of PL/I programs, the 
most important parts of the programming 
system are the Monitor_prog_ram, the Job 
Control_program, and the PL</I_com£il er , all 
of which are discussed below. 

Figure 21 gives a schematic representa- 
tion of the Disk Programming System. 



Figure 21. Schematic Representation of the 
Disk Programming System 

Control_Programs 

The Initial_Program_Loader loads the Mon^ 
itor_£ i rogram into main storage and trans- 
fers control to it, causing it to load the 
J2b_£°.2£E2l_ii£22I3:2!« After execution of 
the Job Control program, control is 
returned to the Monitor program. The Job 
Control program is used before each job (1) 
to assign actual input/output addresses to 
the symbolic addresses used in the pro- 



Monitor Program 

The Monitor program, whi 
Initial Program Loader, 
program of the DPS. It 
and contains information 
grams. Therefore, it mu 
storage throughout a sys 
itor program controls th 
execution of object prog 
grams that have already 
(i.e., translated into m 
the PL/I compiler. 



ch is loaded by the 
is the main control 
provides functions 

needed by all pro- 
st be in main 
tern run. The Mon- 
e loading and 
rams, that is, pro- 
been compiled 
achine language) by 
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Job Control Program 

The Job Control program, which is the first 
program to be loaded by the Monitor pro- 
gram, provides for automatic job-to- job 
transition in a system run. It prepares 
the system for the execution of the next 
job by reading and processing a set of job- 
control statements punched into cards by 
the user. The job-control statements must 
contain all the information required to run 
a job. They have to indicate the start and 
name of a job, specify the jobs that are to 
be executed, and to define input/output 
requirements of the programs. In response 
to the job-control statements, the Job Con- 
trol program allocates the input/output 
units required, and then requests the Mon- 
tior program to initiate the execution of 
the specified job (or batch) . After execu- 
tion of a job, the Job Control program 
prints the error statistics if specified 
and obtains information about the next job 
from a new set of control statements. 



Model 20 PL/I Compiler 

The Model 20 PL/I compiler is a program 
that 



translates (i.e., compiles) a PL/I 
source program into a set of System/360 
Model 20 machine instructions, and 



link-edits the set of machine instruc- 
tions into a form suitable for 
execution. 



The set of machine instructions produced 
by a compilation is termed a compiled 
ob je c t_m o d ul e . 



The set *of machine instructions produced 
b Y IiQ.Kze3.i£ill3. i s termed an executable 
2. bjec t _pr oqr am . 



A compiled object module is not execut- 
able. It must first be link-edited by the 
PL/I compiler, that is, linked with other 
user and IBM-supplied modules or -- if the 
compiled object module is a complete pro- 
gram -- only with IBM-supplied modules to 
form an executable object program. 
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Job Control 



The Job Control program is executed before 
each job to prepare tha system for the job 
to be executed, and it is called subse- 
quently each time the end of the job is 
reached. Control statements supply the 
information required by the Job Control 
program. 

This section gives a detailed descrip- 
tion of the most important job-control sta- 
tements you need to compile and execute 
your programs. 

Figure 22 is an illustration of the I/O 
device assignments used for compilation and 
execution. 



Note: SYSRDR and SYSIPT may be assigned the same card-reading device/ 
In which case the cards read on SYSIPT follow those read on SYSRDR 
In the hopper. If the additional work areas WORK2 or WORK3 
are used, the two (three) extents WORK1, WORK2, (and WORK3) 
must reside on different disks. Note also that the symbolic 
device addresses specified in this figure must be used for 
the work files. The work file WORKL is used in rr 

connection with the option LSORT. y 
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Printed 
Output 



to by symbolic, not actual device 
addresses. This means that, when writing 
your programs, you can disregard the actual 
device assignments of the system configura- 
tion you use. The symbolic device 
addresses you can use are listed in Figure 
23. No other addresses may be used. 



Symbolic 

Device 

Address 



SYSRDR 



SYSIPT 



SYSOPT 



SYSLST 



SYSLOG 



Refers to 



Card reading device for control 
statements. Not used by PL/I 
compiler or object programs. 



Input device (card reader or 
tape drive) from which the input 
for the compiler is read. 



Card punching device or 
magnetic-tape drive on which the 
object program of the compiler 
is written. 



Printer for printing listings 
and diagnostic messages. 



Printer used to print operator 
messages. The device may be the 
same as the one referred to by 
SYSLST. 



SYSLST 



SYS000- | User-program I/O devices (disk 
SYS019 land magnetic tape devices only). 



Figure 23. Symbolic Device Addresses 



Symbolic device addresses can be 
assigned to actual devices 



1. when building the system, or 

2. by means of the ASSGN statements. 



Figure 22. I/O Device Assignments Used for 
Compilation and Execution 



I/O Device Assignment 

The I/O devices used by the system for pro- 
gram compilation and execution are referred 



Job Control Statements 

Job-control statements identify a job and 
define its requirements and options. They 
serve as input to the Job Control program 
and enable it to provide automatic job-to- 
job transition. Figure 24 lists the DPS 
job-control statements and their functions. 
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ASSGN 
CONFG 



Operation 
Specification 



DATE 



DELEI 



DLAB 



DSPLY 



EXEC 



FILES 



JOB 



LOG 



NOLOG 



OPTN 



PAUSE 
TPLAB 



VOL 



XTENT 



Function 



Changes or deletes I/O 
assignments 

Specifies main-storage 
capacity (either 16K, 24K, 
or 32K bytes) 



Specifies date, i.e., the 
day of the year and the 
year 



Causes permanent labels to 
be deleted 



Supplies disk label infor- 
mation for individual file 



Causes listing of all per- 
manent labels 



Indicates end of control 
statements 



Positions magnetic tape 
reel by skipping specified 
number of tape marks 



Specifies name of job and 
the ty t e of operation to be 
performed 



Cau 
sta 



ses listing of control 
tements on SYSLOG 



Causes listing of control 
statements to be 
discontinued 



Indicates that the printout 
of tape error statistics is 
required by the job and/or 
indicates that the execu- 
tion of tha job is not to 
be interrupted by an 
inquiry program 



Causes immediate halt 



Sup 
mat 



plies tape label i 
ion for individual 



nf or- 
file 



Specifies name of file to 
be processed and the sym- 
bolic address of the drive 
on which it is mounted 



Defines the extents used by 
a file on a disk pack and 
specifies the symbolic 
address of the drive on 
which the pack is mounted 



Figure 24. 
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Q3DER_0F_INPUT 

Job-control statements are read by the Job 
Control program on a device whose symbolic 
address is SYSRDR. Normally, the first 
job-control statement for a particular job 
is a JOB statement. Only PAUSE, LOG,, and 
NOLOS statements may precede a JOB state- 
ment. The last job-control statement must 
be an EXEC statement. 



Except where noted, the remaining job- 
control statements may be arranged in any 
order between the JOB and the EXEC 
statements. 



FORMAr_OF_J OB- CON TRDL_STA TEMENTS 

The general format of the job-control sta- 
tements is as follows: 

i 1 1 1 

| Name | Operation 1 Operand (s) Comments | 

1 // I operation |[ operand] [, operand] .. . | 

i j j j 

// identifies a statement as a job-control 
statement. The slashes must appear in 
the first two columns of the job-control 
statement and must be followed by at 
least one blank. 

2£§£§;£i2Il indicates the function of the 

job-control statement. For example, the 
word ASSGN indicates that the control 
statement specifies an I/O device 
assignment. The operation field can be 
up to five characters long and must be 
followed by at least one blank. 

operands supply additional information 
about the job-control statement. For 
example, the operands of the ASSGN sta- 
tement specify the symbolic device 
address and the characteristics of the 
actual device. The operand field may be 
blank or may contain one or more 
operands, separated by commas, with no 
intervening blanks. A blank to indicate 
the end of the field must follow the 
last operand in the field. The field 
must not extend beyond column 71 of the 
punched card. With a DLAB statement 
where not all operands can be accommo- 
dated on one card, a continuation card 
must be used. 

E.£22.E3.ffi.S.§£l§_£.2ffllsnts may be inserted in 
all control statements used in conjunc- 
tion with the Model 20 DPS Control and 
Service programs. They must, however, 
follow the rightmost operand of the 
statement. 
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When preparing a control statement that 
contains comments, observe the following 
rules: 

1. If the control statement has one or 
more operands, the comments must be 
separated from the last operand by at 
least one blank column. 



ment. However, if the length exceeds 
six characters, only the leftmost six 
characters are recognized. 

Fiyure 25 jives an example of using job- 
control statements. 

DATE Control Statement 



2. If the statement does not permit the 
use of an operand, the comments must be 
separated from the operation entry by 
at least one blank column. 

3. If an operand has been omitted from the 
statement, the absence of the operand 
must be indicated by a comma and the 
comments must be preceded by at least 
one blank column. 

Comments are printed but have no effect 
on the program. They must not extend 
beyond column 7 1 of the statement. 

IQB_Control_Statement 

The JOB Control statement indicates to the 
Job Control program that a set of job- 
control statements follows. The format of 
the JOB control statement indicates whether 
the program is to be executed or compiled 
only or compiled and executed. The JOB 
control statement has the following 
formats: 



I ' 1 T 

| Name | Operation | Operand (s) 



Comments 



I// UOB 
j. f 

I// I JOB 
Y + 

I// I JOB 



j program-name 1 

f 

|PL1 

| PL1 , program-name 2 

j 






| !may be any name 

| 2 must be name of root segment 

i j 

The name of the program to be executed. 
If the name appears by itself, it is the 
name of either a program in the core- 
image library or an executable object 
program stored on cards or magnetic 
taj.e. 

If the name is preceded by the word PL1, 
the input is to be compiled, link- 
edited, and executed. If only precom- 
piled object modules are used, compila- 
tion is skipped. 

If the word PL1 appears alone, the inpat 
is to be compiled and/or link-edited, 
but not immediately executed. 

There is no limit on the length of the 
program-name in any JOB control state- 



The DATE control statement must be included 
in the control statements for the first job 
after initial program loading. Further 
DATE statements need only be supplied if 
the date is to be changed. 



The format of the DATE control statement 



is : 



I T T 1 

1 Name| Operation! Operand (s) Comments | 
j. f f { 

|// | DATE Jyyddd I 

i j j j 

y_y_ — the last two dijits of the year; 
e.g. , 70 for 1970. 

ddd -- the day of the year; e.g., 002 for 
January 2nd. (Any of the numbers 001 - 
366 may be used) . 

The year and the day of the year are 
used for label checking. The date can be 
used for dating output reports of problem 
programs by use of the PL/I DATE built-in 
function. 

CONFG_Control_Statement 

The CONFG control statement specifies the 
capacity of main storage. It must be 
included only if the capacity of main 
storage stored in the Monitor program is to 
be changed. The CONFG statement must pre- 
cede any label information for tape files 
(e.g., VOL, TPLAB) . 

The format of the CONFG control state- 
ment is: 

I T T 1 

| Name | Operation! Operand (s) Comments ] 
j. + + ) 

I// |C0NFG |16 | 

j. f f j 

I// | CONFG J24 J 

|// | CONFG | 32 1 

i J , j J 

1.6 -- indicates a storage capacity of 16, 
384 bytes. 

24 — indicates a storage capacity of 24, 
576 bytes. 

32 — indicates a storage capacity of 32, 
768 bytes. 
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suspend operation 
discontinue listing job-control statements 



execute object program 



specify capacity 
of main storage 

specify date 




execute 

program obtained 
from core-image 
library 



V/ 

compile, link-edit, and execute source program 



begin listing job- 
control statements 



compile, but do not link-edit and execute source program 



Figure 25. Example of Using Job Information Control Statements 



QPl.N_Control_Statement TES 

The OPTN control statement has the follow- 
ing format: 



i 1 1 1 

| Name | Operation |Operand (s) Comments | 

|// jOPTN |NOINQ, TES | 

i J J J 



NOINO. 

No program may be executed as an inguiry 
program until the next Job Control run 
has been completed. For information 
about inguiry programs, refer to the 
section Special_Prggramming_Information. 



Indicates that tape error statistics are 
to be kept during the job that follows 
and printed before the next Job Control 
run. When TES is specified, LOG must 
also be specified. You may specify one 
or both operands, in any order, 
separated by a comma. 

k2 G __Control_Statement 

The Job Control program does not normally 
list job-control statements. However, when 
a LOG control statement is encountered, it 
begins to list all job-control statements 
for all jobs until a NOLOG statement is 
encountered. The LOG statement is the 
first statement that appears in the list- 
ing. The format of the LOG control state- 
ment is: 
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I T T * 1 

| Name| Operation! Operand (s) Comments J 
j. f f .} 

|// | LOG | | 

L J -L J 

Note: You may place the LOG statement 
either before the JOB statement or anywhere 
between the JOB and EXEC statements, but 
not between the VOL, DLAB, XTENT, or VOL, 
TPLAB control statements. The LOG state- 
ment is only effective if a printer is 
assigned to SYSLOG. 



NQLOG_Control_Statement 

The NOLOG control statement stops the list- 
ing of job-control statements for all jobs. 
It is the last statement to appear in the 
listing. Listing of control statements is 
resumed only if another LOG control state- 
ment is encountered. The format of the 
NOLOG statement is: 

i 1 i ' ' 1 

| Name | Operation | Operand (s) Comments | 
j. + + . ^ 

|// | NOLOG | | 

i j j j 

Note: You may place the NOLOG statement 
either before the JOB statement or anywhere 
between the JOB statement and the EXEC sta- 
tement, but not between the VOL, DLAB, 
XTENT or VOL, TPLAB control statements. 

£AUS E_Con trolls tatem en t 

The PAUSE control statement is used to 
interrupt processing. It merely suspends 
operation and does not affect the contents 
of main storage. The operator need only 
press the Start key on the CPU console to 
resume operation. The PAUSE control state- 
ment has the format: 



| Name| Operation! Operand (s) Comments | 

I// J PAUSE | I 

i j r i j 

The Job Control program executes the 
PAUSE statement as soon as it encounters 
it. You may place it anywhere among the 
control statements, but not between the 
VOL, DLAB, XTENT or VOL, TPLAB control 
statements. 

IXEC_Control_Statement 

The EXEC control statement indicates to the 
Job Control program that the reading of a 
set of job-control statements has been com- 
pleted and that control is to be returned 
to the Monitor. The EXEC control statement 
has the following formats: 



| Name | Operation/Operand (s) Comments j 

I// I EXEC | ] 

j. f f ., 

|// | EXEC JR j 

j. + + 4 

|// | EXEC | LOADER j 

h f f { 

I// | EXEC 1 LOADER, R J 

i j j j 

R 

The operand R as the only operand (2nd 
format) is used exclusively in EXEC 
statements for core-image maintenance. 
It indicates that the input to the 
CMAINT (Core-Image Maintenance) program 
is read from the relocatable area on the 
system disk pack. 

LOADER 

The operand LOADER used as the only 
operand (3rd format) indicates that the 
execute-loader function is used, i.e., 
your executable program is read from the 
card reading device or tape drive 
assigned to SYSIPT and then excuted. 

LOADER x R 

The operand R used in conjunction with 
the operand LOADER (4th format) indi- 
cates that the execute loader function 
is to be used and that the program you 
want to be executed is read from the 
relocatable area and executed. The name 
in the JOB statement is then ignored. 

Note: When the execute-loader function is 
used, the CMAINT program must be contained 
in the core-image library of your disk- 
resident system. 

Figure 26 shows examples for the usage 
of the JOB and the EXEC control statement. 

lLSSGN_Control_Statement 

In the PL/I program itselt, you refer to 
I/O devices in the MEDIUM option of the 
ENVIRONMENT attribute by symbolic device 
addresses, and not by specifying the actual 
device address. The Job Control program 
assigns actual I/D device addresses to the 
symbolic device address. the actual device 
address is assigned to the symbolic one by 
means of an ASSGN control statement. 

Figure 27 shows an example of I/O device 
assignment. 

Permanent device assignments are made by 
means of ASSGN macro instructions when 
generating the Monitor. These permanent 
device assignments are written onto the 
system disk pack and loaded into main 
storage together with the Monitor at IPL 
time. 
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1. // JOB CMAINT 
// EXEC[R] 



Input from SYSIPT = Card or Tape unless R is specified in 

which case the program in the relo- 
catable area is included in the core- 
image library. 



// JOB program-name 
// EXEC 



Fetch executable object program from core-image library 
and execute. 



3. // JOB program-name 
// EXEC LOADER 



Load executable object program from SYSIPT and execute. 
Input (program) in card image form from SYSIPT = Card or 
Tate. 



4,. // JOB program-name 
// EXEC LOADER, R 



Load program from relocatable area and execute. 



— 1 



// JOB PL1 , program-name 
// EXEC 



Compile, link-edit, and execute program. 
Input from SYSIPT = Card or Tape. 



6. 



// JOB ,PL1 
// EXEC 



Compile, or compile-and-link, or link depending on 
compiler-control statements. 
Input from SYSIPT = Card or Tape. 

Output onto SYSOPT = Card or Tape and onto the relocat- 
able area. 



Figure 26. Examples for the Usage of JOB and EXEC Control Statements 



Permanent device assignments loaded into 
main storage apply to all jobs, unless you 
alter them by inserting ASSGN control sta- 
tements in your problem program. These new 
device assignments then remain in effect 
for all subsequent jobs unless changed 
again by other ASSGN control statements. 



If the operator reloads the Monitor into 
main storage through an IPL run, the per- 
manent device assignments written on the 
system disk pack are reloaded into main 
storage and take effect, cancelling any 
assignments that have been changed by ASS3N 
control statements. 



d 



d. 



(L 



L 



11 



t 



L 



// EXEC 



// FILES SYS003,5 



/// ASSGN 
SYS003,X'7AA',T2 



// JOB UPDATE 



ENVIRONMENT 
(MEDIUM (SYS004, 
2311)) 



Problem Program 
in PL/I Language 



///EXEC 




/// ASSGN 

f SYS003,X'802',D3 




///JOBPL1, NEW 







V 



Figure 27. Example of I/O Device 
Assignment 



Changing, at execution time, assignments 
for card devices, printer and printer- 
keyboard has no effect on the device 
addresses specified in the MEDIUM options 
in the source program. These device types 
can only be changed by changing the device 
tyje in the MEDIUM option of the ENVIRON- 
MENT attribute and recompiling the program. 



The formats of the ASS3N control state- 
ment are: 

I T T 1 

| Name| Operationl Operands Comments | 
j. f f ., 

|// |ASSGN |symbolic-device-address, ] 
| | | actual-device-address, | 

| | Itype, specification 1 

|// | ASSGN | symbolic-device-address, | 
1 | lactual-device-address, type| 
h + + ., 

|// | ASSGN | symbolic-device-name, UA | 

i j i j 

symbolic- device- address 

One of the following names: 
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T 1 

SYSRDR | Card-readin.g device for job- 
Jcontrol statements 



SYSIPT J Card-reading device or magnetic- 
|tape drive for input 



SYSOPT | Card-punching device or 

j magnetic-tape drive for output 



-f- 



SYSLST | Printer for output listings 



SYSLOG | Printer for listing job-control 
| statements 



SYS000- | User I/O devices (tape and disk 
SYS019 J devices only) 



t.Y_R§ 

Code specifying the device type: 



I T 

| Code | for Device Type 



D3 
D4 
L1 
L3 
P2 
P3 
R4 
R5 
R6 
R7 
T1 
T2 



2311 Disk Storage Drive Model 11 

2311 Disk Storage Drive Model 12 

1403 Printer 

2203 Printer 

1442 Card Punch 

2520 Card Punch 

2501 Card Reader 

2520 Card Read Punch 

2560 MFCM Primary Feed 

2560 MFCM Secondary Feed 

2415 7-track Tape Drive 

2415 9-track Tape Drive 



Note_1: In the case of magnetic tape and 
disk units, the introduction of symbolic 
device names allows to change the actual 
device address by means of an ASSGN job- 
control statement. 

Note_2: If SYSRDR and SYSIPT are both 
assigned to the same 2560 device, two /* 
cards must follow the source input on 
SYSIPT. 

actual -device- address 

The device address of the unit chosen by 
the machine operator. The attachment 
point and the unit must be specified in 
the form X'cuu' where 

c, the §ttachment_point, is: 



I T 

Attachment | for Device Type 
Point | 
v + 4 

1 | IBM 2501 Card Reader 

I 

2 | IBM 2520 or 2560 (all models) 

I 

3 |IBM 1442 Card Punch 

I 

4 | IBM 1403 or 2203 Printer 

I 

7 | IBM 2415 Magnetic Tape Unit 

I 

8 | IBM 2311 Disk Storage Drive 

L ,-4 J 



uu, the unit, is: 



| Unit 



| for Device Type 



I 01, 02, 03, | 

J and 04 j disk 



| 08 through | 

j FD J tape 



00 



| all other equipment 



specification 

Code indicating device specifications 
for 7-track tape and 9-track phase- 
encoded ta^e. This field is not used 
for other types of equipment. The codes 
for 7-track tape are shown in Figure 28. 













I ] 


Bytes 


j |Translat 


ej Convert) 


I Code|p 

J- f- 

j X ' 1 ' j 


er Inch| Parity | Feature 


IFeature | 


200 


| odd | off 


1 — 


on | 


|X'20' | 


200 


| even | off 




off | 


]X'28« 1 


200 


| even | on 




off | 


|X'30' | 


200 


| odd | off 




off | 


JX»38« | 

V +- 

|X'50' | 


200 


| odd | on 
j odd | off 


-+- 


off | 
on ] 


556 


| X 1 60* | 


556 


| even | off 




off | 


| X • 68 • j 


556 


| even j on 




off | 


|X '70' J 


556 


J odd 1 off 




off | 


| X ' 7 8 « | 
f f- 

| X ' 9 ' | 


556 


| odd | on 
J odd | off 


-+- 


Off | 

on | 


800 


| X' A0' | 


800 


| even | off 




off | 


|X'A8' | 


800 


j even | on 




off | 


|X'B0'| 


800 


| odd | off 




Off | 


|X'B8' ] 


800 


| odd I on 




Off | 













Figure 28. Codes for 7-Track Tapes 

For 9-track tape, specifications are not 
required unless phase-encoded tape with the 
compatibility feature is used. 

The codes for 9-track phase-encoded tape 
are: 

X'CO' — 1600 bytes per inch 
X'C8» — 800 bytes per inch 



UA 



Indicates that the device is to be 
unassigned. 



The following examples illustrate the 
use of the ASSGN control statement. 
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1. The following control statement assigns 
SZS001 to a 2415 9-track magnetic tape 
drive whose unit number is 08, specifi- 
cation 1600 bytes per inch. 

// ASSGN SYS001 ,X'708' ,T2,X'C0 » 

2. The following control statement assigns 
SY5002 to a 2311 Disk Storage Drive 
Model 11 , whose unit number is 02. 

// ASSGN SYS002,X'802' ,D3 

3. The following control statement 
releases SYS003 from a device 
assignment. 

// ASS3N SYS003,UA 

FIkIS_Control_Statement 

The FILES control statement is used to 
position the magnetic tape at the beginning 
of any file on a multi-file reel. If, in a 
set of job-control statements, a FILES con- 
trol statement and an ASSGN control state- 
ment refer to the same symbolic I/O 
address, the FILES statement must follow 
the ASSGN statement. The format of the 
FILES control statement is: 



i — i 1 

| Name | Operation | Operand (s) 



I// | FILES 
i j 



| device-name / skip 
.j 



Comments | 
1 



^Qvice;name_ 

The symbolic name of the tape drive on 
which the reel of tape to be positioned 
is mounted. (A complete list of device 
names is given in the discussion of the 
ASSGN control statement) . 

skip 

The number of tape marks to be skipped 
(1-999) , counted from the load point, in 
order to position the tape. (On unla- 
beled files, a tape mark follows each 
file. On labeled files, another taj:e 
mark follows the labels). 

an example showing the use of the FILES 
control statement is shown in the section 



iBEBt^Qiii^ut, under the heading Positioning. 

Of _HDi§:k§l§^_E§:£2_£ii:SS. 



Lab_el_Inf ormation_Processing 

The Job Control program prepares for the 
writing and checking of standard labels for 
disk and magnetic tape files. 



Control statements are required only for 
labeled tape and disk files. Two control 
statements must be supplied for each 
labeled tape file. At least three control 
statements must be supplied for each disk 
file (a minimum of four is required for 
indexed files) . The types of control sta- 
tements are: 

1. VOL (volume) 

2. TPLAB (tape label) 

3. DLAB (disk label) 

4. XTENT (disk extent) 

Each file requires a VOL control state- 
ment and either a TPLAB or DLAB control 
statement. XTENT control statements are 
required only for disk files. 

The control statements must be read in 
the order indicated below. 

1 . The VOL control statement for a file. 

2. Either the TPLAB or the DLAB control 
statement for that file. 

3. One or more XTENT control statements if 
the file is in disk storage. If there 
is more than one XTENT control state- 
ment, they must be arranged in the 
order in which the areas they define 
are to be used. 

The label control statements for tape 
and disk are further discussed in the sec- 
tion Inputs/Output. 

Figure 29 shows another example illus- 
trating the use of job-control statements. 
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If different 
from the 
Monitor 
Assignments 



DISK DRIVE, MODEL 11 

READER 

PRINTER 

SECONDARY 

PRINTER 



TWO /* — > 

cards if 
SYSRDR = 
SYSIPT and 
assigned to 
the same 
2560 

If SYSRDR — > 
* SYSIPT, 
CATAL cards 
have to be 
included for 
each program 
segment 



OBJ 

DECK 



// LOG THIS JOB STREAM ILLUSTRATES OPERATIONAL 

// LOG ASPECTS OF PL/I AND THE JOB CONTROL LANGUAGE. 

// LOG FIRST IS AN EXAMPLE OF PL/I COMPILE AND EXECUTE 

// JOB PL1 ,PR0G1 

// DATE 70001 
*// CONFG 16 

// ASSGN SYS000,X'80T ,D3 2311 

// ASSGN SYSIPT, X'100 ' , R4 2501 

// ASSGN SYSLST,X'40O' f L1 1403 

// ASSGN SYSOPT,X'200 ',R7 2560 

// ASSGN SYSLOG,X' 400' ,L1 1403 
"// OPTN NOINQ 

// DELET 

// VOL SYS000, WORK1 

// DLAB'DPS 16K DISK WORK FILE1 1202020', X 

0001,70001,70001 col. 72 

// XTENT 1, 000, 0090000,0102009, '202020' ,SYS000 

// EXEC 

+ COPTN LINK,GODECK 

+ SEGMENT PROGA 

+ PROCESS XREF,ATR f LIST 
/* PL/I SOURCE DECK */ 



/* DELIMITER CARD 
DATA CARDS 

/* 

// PAUSE END OF JOB. INSERT OBJECT IN JOB STREAM BELOW. 

// LOG PL/I PROGRAM IS STILL IN RELOCATABLE AREA, AND IT IS 

// LOG POSSIBLE TO CATALOG IT INTO THE CORE IMAGE LIBRARY, 

// LOG AS SHOWN IN THE FOLLOWING JOB. 

// JOB CMAINT 

// EXEC R 

// CATAL 

//END 

// PAUSE END OF JOB. 

// LOG IT IS ALSO POSSIBLE TO CATALOG THE PROGRAM INTO 

// LOG THE LIBRARY FROM THE OBJECT DECK, AS FOLLOWS. 

// JOB CMAINT 

// EXEC , NOTE — FOLLOWING IS COMPILER OUTPUT FROM FIRST JOBI 

// CATAL 

PHASE PROGA, A, X' 1200' GENERATED DURING LINK-EDITING. 
12 
2 ESD 



TXT 



END 



END 



Figure 29. Example of the Sequence of Job Control Statements, Part 1 of 2 
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// PAUSE END OF JOB 

// LOG THE OBJECT PROGRAM IS STILL IN THE RELOCATABLE 

// LOG AREA AND CAN BE AGAIN EXECUTED, AS FOLLOWS . 

// JOB ANYNAME 

// EXEC LOADER, R 

DATA CARDS 

/* 

// PAUSE 

// LOG OR THE OBJECT DECK CAN BE EXECUTED, AS FOLLOWS. 

// JOB ANYNAME 

// PAUSE INSERT OBJECT DECK AFTER EXEC CARD 

// EXEC LOADER 

OBJECT DECK GOES HERE 
/* 



[r A ] 



// PAUSE 

// LOG THE PROGRAM CAN ALSO BE EXECUTED FROM THE 
// LOG CORE IMAGE LIBRARY, SINCE IT HAS BEEN 
// LOG PREVIOUSLY CATALOGED. 
// JOB PROGA 
// EXEC 
TDATA CARDS! 

// PAUSE END OF JOB 

// LOG FOLLOWING IS AN EXAMPLE OF PL/I COMPILE ONLY. 

// JOB PL1 OTHER JCL PROVIDED BY FIRST JOB 

// EXEC 

+ PROCESS 

/* IN THIS EXAMPLE, ALL COMPILER OPTIONS ARE ASSUMED */ 

/* PL/I SOURCE DECK GOES HERE */ 

/* 

// PAUSE 



Figure 29. Example of the Sequence of Job Control Statements, Part 2 of 2 
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The Compiler 



The Model 20 PL/I compiler is a component 
of the Model 20 Disk Programming System. 

This section describes the Model 20 PL/I 
compiler, its options, the listings it pro- 
duces, and its diagnostic features. (At 
the present stage, this section contains 
only preliminary information.) 

Let us briefly recall the essential 
functions of the control programs described 
so far: 

After initial program loading, the Mon- 
itor receives control and loads the Job 
Control program, which reads and processes 
the job-control statements. It then 
returns control to the Monitor, which loads 
the PL/I compiler and transfers control to 
it. 

The compiler is the program that trans- 
lates source programs into machine language 
and performs the necessary link-editing to 
transform compiled object modules into an 
executable object program. 
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Input to Compiler 

When the Job Control program has read and 
processed the job-control statements pre- 
ceding a job, it transfers control to the 
compiler. The compiler then reads the 
input — which may be on cards or on mag- 
netic tape in card-image format — from 
SYSIPT to perform any of the following: 

• compile 

• compile-and-link 

• compile-link-and-execute 

• link 

• link-execute 

The input read from SYSIPT may consist 
of 



• one or more PL/I source modules 

• one or more precompiled object modules 
or 

• PL/I source module (s) and precompiled 
object module (s) 

A module is a procedure that is either 
part of a program or a complete program. 
Precompiled object modules are modules that 
have been compiled, but not link-edited, or 
assembled by the PL/I compiler or the 
Assembler, respectively, and are used again 
as compiler input. 

If more than one module is processed by 
the compiler in one job, we speak of batch 

compilation. 



Et/I_SOURCE_M0DULE_I£PUT 

Source modules are always read from SYSIPT. 
They may either be on cards or on magnetic 
tape, depending on whether a card reading 
device or a tape drive is assigned to 
SYSIPT. 

The first statements processed by the 
compiler are always the compiler-control 
statements, with their options. 

Compiler-control statements and options 
are furnished to the compiler on cards 
either for the whole job or separately, for 
each procedure. 

For the Model 20 PL/I compiler, we have 
the following control statements: COPTN, 
PROCESS, SEGMENT,, and COPY. The COPTN con- 
trol statement is valid for the whole job. 
The PROCESS statement is furnished once per 
procedure. 
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If overlay is used, SEGMENT control sta- 
tements must precede each segment. 
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Comj^ilation_of_PL^I_Source_Modules 

To compile two source modules without imme- 
diate execution and/or cataloging and 
obtain the output (i.e., the compiled 
object modules) on cards, use the job and 
compiler-control statements in the sequence 
shown in Figure 30. 



// JOB PL1 

(other job-control statements) 

// EXEC 
[+ COPTN compiler-options} 
+ PROCESS DECK 

(source program 1) 

+ PROCESS DECK 

(source program 2) 

/* 

i j 

Figure 30. Compilation of PL/I Source 
Modules 

The option DECK in the PROCESS control 
statements specifies that the compiler out- 
put (i.e., the compiled object modules) is 
to be punched or written on tape. Since we 
want the output to be punched into cards, 
we have to assign SYSOPT to a card-punching 
device. (The complete set of options of 
the PROCESS control statement is discussed 
in the section Q2tions_and_Control 
Statements) . 

Qompilation_and_Linkaga 

If the two source modules are to be linked 
as well as compiled, that is, to have an 
executable object program available for 
execution at a later date, your control 
statements would have to look as shown in 
Figure 31 . 

i 1 

// JOB PL1 

(other job-control statements) 
// EXEC 

+ COPTN LINK,30DECK 
+ PROCESS DECK 

(source program 1) 

+ PROCESS DECK 

(source program 2) 
/* 



Figure 31. Compilation and Linkage of PL/I 
Source Modules 



£2I!Liiittion t _Linka2e_and_Execution_of _PL^I 
Source_Modul.es 

For a compile-link-and-execute run, you 
would need the control statements shown in 
Figure 32. 



// JOB PL1 , program-name 

(other job-control statements) 

// EXEC 

+ COPTN LINK 

+ PROCESS 

(PL/I source program 1) 

+ PROCESS 

(PL/I source program 2) 

/* 

data cards 

/* 



Figure 32. Compilation, Linkage, and 
Execution of PL/I Source 
Modules 

Compilation starts with the compiler- 
control statement + COPTN LINK. The option 
LINK indicates that the program is to be 
link-edited into an executable object 
program. 

Precompiled object modules produced by 
the Model 20 PL/I compiler cannot be 
handled by the DPS Linkage Editor program, 
nor can they be loaded immediately by the 
Fetch routine of the Monitor. 



£2SEiI§ti2fi«._kifilSSa§_i:Il^_£iit_.i2aifi9L_2f _i 
£LZI_S2]2I22_Modu_e 

To compile-link-and-catalog a PL/I source 
module, that is, to include it in the core- 
image library as a permanent entry, use the 
set of control statements shown in Figure 
33. 

Compilation starts with the + COPTN LINK 
control statement, LINK specifying that the 
PL/I source module is to be compiled and 
link-edited. 

If you want to compile-link-and-catalog 
and then immediately execute the same pro- 
gram, specify the job-control statements 

// JOB program-name 
// EXEC 

following the CMAINT control statements 
(see Figure 33) . 
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// JOB PL1 

(other job-control statements) 

// EXEC 
+ COPTN LINK 
+ SEGMENT 
+ PROCESS 

(source module) 
/* 

// JOB CMAINT 
// EXEC R 
// CATAL 
// END 



Figure 33. Compilation, Linkage, and Cata- 
loging of PL/I Source Modules 



PRECOMPILED_OBJECT_MODULE_INPUT 

A precompiled object module is a source 
module that has been compiled or assembled 
but not link-edited and that is used again 
as input to the PL/I compiler. 



Precompiled object decks may be output 
from the Model 20 PL/I compiler or from the 
DPS Assembler. If subroutines assembled 
with the DPS Assembler are used., none of 
the following Assembler options are allowed 
in the AOPTN control statements: NOESD, 
NORLD, ENTRY. The assembler language must 
not contain any supervisor macros or input/ 
output programming, nor the XFR pseudo 
instruction. 

Control statements for the DPS Linkage 
Editor Program must not be contained in the 
precompiled deck. 



kifiKaL3.§_&S.3_Execution_of _Precompiled_Obj.ect 
Modules 

Suppose you have several precompiled object 
modules which you want to be linked into 
one executable PL/I object program and 
executed immediately. The set of control 
statements for this job would have to look 
as shown in Figure 34. 

The job-control statements for this run 
indicate that the program is to be executed 
immediately after compilation — in this 
case, after link-editing. The link-editing 
of the precompiled object modules starts 
with the COPTN LINK card and ends with the 
first end-of-file (/*) record. 

Link-editing produces an object program 
that can be executed immediately. 



// JOB PL1, program- name 

(other job-control statements) 

// EXEC 

+ COPTN LINK 

+ COPY 

(precompiled object module 1) 

[+ COPY] 

(precompiled object module 2) 

[+ COPY] 

(precompiled object module 3) 

/* 

(data) 

/* 



Figure 34. Linkage and Execution of Pre- 
compiled Object Decks 



LillKi:i§._2f _E£s compile d_Object_Mo dules 

If you want to only link the same precom- 
piled object programs and have them avail- 
able for execution at a later date, use a 
set of control statements as shown in 
Figure 35. 



// JOB PL1 

(other job-control statements) 

// EXEC 

+ COPTN LINK,GDDECK 

+ COPY 

(precompiled object program 1) 
[+ COPY] 

(precompiled object program 2) 
[+ COPY] 

(precompiled object program 3) 
/* 



Figure 35. Linkage of Precompiled Object 
Modules 



Note: You have to specify 3DDECK in the 
COPTN control statement in addition to 
assigning SYSOPT to a card-punching device 
or a magnetic-taj. e drive. 
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PL^I _S U R C E _M OD U LE _A ND_P RE CO M PI L ED_0 B J E Cr 
MODaLE_INPaT 

£21£il§.ii2B_§.s3._Execution 

If several PL/I source modules are to be 
compiled and several precompiled object 
modules are to be link-edited with the com- 
piled object modules into one executable 
object program that is to be executed imme- 
diately, you must use the set of control 
statements needed for such a job as shown 
in Figure 36. 



// JOB PL1, program-name 

(other job-control statements) 

// EXEC 

+ COPTN LINK 

+ COPY 

(precompiled object module 1) 

+ PROCESS 

(source module 1) 

+ PROCESS 

(source module 2) 
+ COPY 

(precompiled object module 2) 



/* 

[-(data)"! 



i j 

Figure 36. Compilation and Linkage of PL/I 
Source Modules and Pre-Compiled 
Object Modules for Immediate 
Execution 

The precompiled object decks must be 
headed by a COPY control statement, each 
source program by a PROCESS control 
statement. 

£201£ii§tion t _Link2Editing_and_Cataloging 

To compile, link-edit, and catalog the set 
of programs shown in Figure 36, omit the 
a.EE22EI.1~2.§.12 i- n the first job-control sta- 
tement and the data cards followed by /*. 

The following control statements would 
be needed to catalog the job after 
compilation : 

// JOB CMAINT 
// EXEC R 
// END 

These control statements must follow the 
input deck if the program is to be cata- 
loged from the relocatable area. 



Output from Compiler 

Output from the compiler may be 



• a compiled object module 
and/or 

• an executable object program 



The executable object program is always 
in the relocatable area and on the device 
assigned to SYSOPT if the option GODECK has 
been specified in the COPTN control 
statement. 

The compiled object module is on the 
device assigned to SYSOPT. Note, however, 
that you must specify the option DECK in 
the PROCESS control statement and assign a 
card-punching device or a tape drive to 
SYSOPT. Otherwise, the output is lost. 



COMPILED OBJECT MODULES 
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Compiled object module output may be on 
cards or on magnetic tape. 



Card_Output 

The output is on cards if the DECK option 
has been specified in the PROCESS control 
statement, and if a card-punching device 
has been assigned to SYSOPT. 



Tape_Outp_ut 

The output is on magnetic tape if the DECK 
option has been specified in the PROCESS 
control statement and if a magnetic-tape 
drive has been assigned to SYSOPT. The 
output tape contains the compiled object 
module(s) in card-image format. 

SYSOPT must be assigned if PROCESS DECK 
is specified. 
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EXECUTABLE_OBJECT_PROGRAMS 

Executable object programs are programs 
that have been compiled and link-edited. 
They are in the relocatable area and can 
immediately be executed and/or cataloged 
into the core-image library by the CMAINT 
program. 



Note: Executable object programs cannot be 
used again as compiler input. 



If the GODECK option has been specified 
in the COPTN control statement, the execut- 
able object-program output is also on a 
device assigned to SYSOPT. Depending on 
whether a card punching device or a 
magnetic-tape drive is assigned to SYSOPT, 
the output is either on cards or on magnet- 
ic tape. 



For the job-control statements necessary 
to execute an executable object program, 
refer to the section Job Control. 



For the control statements necessary to 
catalog an executable object program, refer 
to the section Cataloging. 



Compiler-Control Statements and Options 

The control statements for the Model 20 
PL/I compiler are COPTN, PROCESS, SEGMENT, 
and COPY. 



COPY card is a precompiled object deck. 
The operation field must be followed by 
at least one blank. 



supply additional information about the 
compiler-control statement. For 
example, the operand DECK in the PROCESS 
control statement specifies that the 
compiled object module is to be punched 
on cards or written on tape. The 
operand field may be blank or may con- 
tain one or more operands, separated by 
commas, with no intervening blanks. A 
blank to indicate the end of the field 
must follow the last operand in the 
field. The field must not extend beyond 
column 71 of a punched card. Operands 
of a statement may be referred to as 
options whenever a choice can be made 
among them. 

Whenever a job is to be compiled and 
link-edited for execution, the'first 
statement read from the device assigned 
to SYSIPT must always be COPTN, with the 
option LINK or GODECK. In all other 
cases the use of the COPTN statement is 
optional. 



The control statement immediately pre- 
ceding the PL/I source deck must always be 
the PROCESS statement. The PROCESS state- 
ment is mandatory for PL/I source modules. 
If overlay is used, SEGMENT control state- 
ments must precede each segment. If pre- 
compiled object modules are used in the 
input deck, they must be preceded by a COPY 
statement. 



The general format of the compiler- 
control statements is: 



i t r 1 

I Name| Operation] Operand (s) I 

| + j operation |[ operand [, operand].. ,.. ] | 

L 1 L ■. 1 



name 

identifies the statement as a compiler- 
control statement. The plus (+} sign 
must appear in the first card column of 
the control statement and must be fol- 
lowed by at least one blank column. 



operation 

indicates the function of the control 
statement. For example, the word COPY 
specifies that the deck following the 



CQPTN_Com£iler_Control_Statemen^ 

Options valid for the whole job are speci- 
fied in the COPTN control statement which 
has the following format: 



J T T 1 

| Name| Operation! Operand (s) j 

I + jCOPTN loption [, option] j 

i j j j 

Note that you may specify one or more COPTN 
control statements for a job. However, 
they must precede the whole job and follow 
each other. In case of conflicting 
options, the option specified last is the 
one that is valid. 



The possible options shown in Figure 37 
(default values underlined) are: 
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] Option | Function 



DUMP 



NODUMP 



LINK 



NOLINK 



W0RK1 



W0RK2 



WORK3 



LSORT 



NOLSORT 



GODECK 



causes the contents of main 
storage and registers to be 
listed on SYSLST or SYSLOG in 
case of abnormal termination of 
the job. 



suppresses the DUMP option. 



causes the source module (s) to 
be compiled and link-edited. 



suppresses tha 
options. The 
compiled, not 



LINK and GODECK 
program is only 
link-edited. 



specifies that 
located on one 



the work file is 
disk drive. 



specifies that 
are located on 



the work files 
two disk drives. 



specifies that 
are located on 
drives. 



the work files 
three disk 



indicates that, 
pile mode, the 
ings are to be 
each procedure. 



for batch com- 
specified list- 
collected for 



indicates that 
lation, the sp 
are to be coll 
list type: fi 
module listing 
reference list 



, for batch compi- 
ecified listings 
ected for each 
rst all source 
s, than all cross- 
ings, etc. 



specifies that 
object program 
written on SYS 
specified, LIN 
specified. 



the executable 
is punched or 
OPT. If GODECK is 
K must also be 



l NOGODECKI suppresses the GODECK Option. 

i j 

Figure 37. Option of COPTN Control 
Statement 

PROCESS Co^E^lgr-Q ftn^ rpl, Statemgnt, (i ^for 

PL^I^Squrce^gdules^ 

Options used for the compilation of a 
single procedure are specified in the PRO- 
CESS statement, which has the following 
format: 

, r ,-- T - 

| Name| Operation) Operand (s) 

j. f + 

| + |PROCESS |[ option [, option], .. ] 

I J. — ; *-____J — — , 



H 



i i 

lOption JFunction 



XREF 
NOXREF 



NOATRO 
ATR 



DECK 



NODECK 



SOURCE 



NOSOURCE 



causes the PL/I Compiler to list 
the cross-reference table. 

suppresses the XREF option. 



ATRO 



suppresses the ATRO option. 

lists the attributes of all 
variables, entry names, and file 
names (Symbol- table listing). 



NOATR 



LIST 



NOLIST 



WARNING 



ERROR 



SEVERE 



CHAR48 



CHAR60 



STMT 



NOSTMT 
EXTREF 



punches or writes a compiled 
object module on SYSOPT if no 
irrecoverable errors have been 
detected during compilation. 



suppresses the DECK option. 



lists the source module on 
SYSLST. 



suppresses the SOURCE option. 



lists the offsets of labels and 
variables and the length of 
automatic storage- 



suppresses the ATR option. 



lists the object module in sym- 
bolic form on SYSLST. 



suppresses LIST option. 



lists all detected errors and 
warning messages. 



lists errors and severe errors. 



lists only severe errors. 



informs the compiler that the 
source module is written in the 
48-character set in EBCDIC 
notation. 



informs the compiler that the 
source module is written in 60- 
character set in EBCDIC 
notation. 



permits the listing of "the last 
statement entered" in case of an 
object time error message. 



suppresses the STMT option. 



prints all external references, 
names with the attributes 
EXTERNAL, and library names of 
this procedure. 



The possible options shown in Figure 38 Figure 38 
(default values underlined) are: 



Options of PROCESS Control Sta- 
tement, Part 1 of 2 
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Figure 38,. Options of PROCESS Control Sta- 
tement, Part 2 of 2 



Printed Listings and Diagnostic Aids 

(This section contains only preliminary 
information) . 



SIAGNOSTIC,CAPABILITI£§_DSSING_CQj|P;I£.ATION 

PL/I source module diagnostic messages will 
be given at three levels: 

1 « Sy_ntax_errors will be printed with the 
PL/I source module listing. 

2 . Er r or s_de t ec t ed_wi t h_da t a_decl a:r a tion s 
will be printed together with the 
symbol- table listing (ATR) . 

3« Other_errors will be printed at the end 
of the compilation with an extra 
listing. 



DIAGNOSTIC_CAPABILITIES_DURING_EXECaTI^ 

The following diagnostic capabilities will 
be provided at execution time: 



1. A dynamic dum^ facility that can be 
called by the statement CALL DYNDUMP 
(variable- name [ , variable- name] . . . ) ; . 
This statement dumps data in hexa- 
decimal format, including statement- 
label and pointer variables. This fea- 
ture will require a minimum of main 
storage. 



Object time error conditions will be 
printed on a device assigned to SYSLST 
or SYSLOG, giving an error code, the 
address where the error occurred, the 
chain of active procedures and, if 
applicable, the address of the file 
that caused the error. 



If the ERROR condition has been raised, 
the standard system action must be 
taken. If the DUMP option was speci- 
fied at compile time, a hexadecimal 
main storage dump will be taken before 
the end of job is called. All files 
are closed automatically before the end 
of the job. 



In case of a hardware stop, the opera- 
tor can start the same action as 
described under 3. 



5. If the STST option was specified at 

compilation time, actions 2 to 4 above 
are extended by printing the statement 
number of the last PL/I statement 
entered. 
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Executing a Simple PL/I Program 



Figure 39 shows a simple, but complete PL/I 
program which reads cards and prints them. 
It is shown with the complete set of job- 
control statements needed to run the pro- 
gram,. The job-control statements used ace 
discussed below in the sequence in which 
they appear. 

^/_5QB_PL1 JL FIRST: indicates to the Job 
Control program that (1) a set of job- 
control statements and a PL/I program are 
to follow, that (2) the PL/I Compiler is to 
translate the source program into an object 
module, and that {3) the PL/I 'program is to 
be executed immediately. 

The JOB statement must be specified foe 
every program. It indicates to the Monitor 
what kind of job is to be done. 

^Z_2iII_70002: specifies the day of the 
year "(January 2nd, 1970). The DATE control 
statement must appear in the first job fol- 
lowing initial program loading. 

The DATE statement is used for label 
checking and for dating output reports. 

ZZ_iSS3N_SYS000 x X18011 A D3: specifies that 
2311 Disk drive, "Model 11, (identified by 
D3) will hold the work area for the compi- 
lation of the program. SYSO00 is the sym- 
bolic device address to be used by the com- 
piler to refer to the address of the disk 
device holding the work area whose location 
(actual device address) is 01. 

A work area must always be assigned for 
a compilation. 

Z^_ASSGN_SYSIPT Z .X^.100^ X .R4: specifies that 
the PL/I source program is to be read from 
the 2501 card reader (identified by R4) 
whose symbolic device address is SYSIPT. 

Input to the compiler is always read 
from SYSIPT. 

ZZ_iSS3N_SYSLST x X14 001 lt Ll: assigns the 
1403 printer to the symbolic device address 
SYSLST on which the output of the PL/I com- 
piler is to be printed. 

It is assumed that SYS000, SYSIPT, and 
SYSLST had other assignments in the pre- 
vious job or, if this is the first job, 
that they had other standard assignments. 
Otherwise, the ASSSN statements would not 
be needed. 



£/_IOk_SYS000 t WORKl : The VOL (volume) , 
DLAB (disk label) , and XTENT cards must be 
supplied because a disk work file is used. 
The VOL control statement indicates the 
symbolic address of the device (SYS000) and 
name (W0RK1) of the work file to be used. 

^.6-Uh.h.^s.s.s. contains the standard IBM disk 
label for the file (WORK1) named in the VOL 
control statement that precedes the DLAB 
control statement. 

//_xrENT i _ ii . specifies the purpose of the 
extent, the extent sequence number, the 
location of the extent etc. 

For a full description of the label con- 
trol statements VOL, DLAB, and XTENT see 
the section Inputs/Output. 



^_EXEC: indicates to the Job Control pro- 
gram that the reading of the control state- 
ments has been completed and that control 
is to be returned to the Monitor. The Mon- 
itor then transfers control to the PL/I 
compiler, which begins reading and compil- 
ing the source program- from the card 
reader. 



±_S&E£N_LINK iL W0RK1: specifies that the 
source program is to be compiled and link- 
edited (LINK). The option H0RK1 specifies 
that one work file is to be used. Since 
the option NOLINK is applied by default, 
LINK must always be specified if the job is 
to be compiled and link-edited to form an 
executable object program. 



±_EE2CESS_XREF X ATR^LIST: causes the com- 
piler to print the cross-reference table 
(XREF) , the source program (by default) , 
the symbol table (ATR) , and the object 
module (LIST) on the device assigned to 
SYSLST. The input on SYSIPT will be (by 
default) in 60-character set EBCDIC 
notation. 

^* signifies the end of the source urogram. 

/* signifies that no more data cards 
follow . 

Figure 40 illustrates the arrangement of 
Input/Output devices that would be needed 
for compilation and execution of the pro- 
gram shown in Figure 39. 
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Figure 39. PL/I Program, with a Complete Set of Job-Control Statements 
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a 



( Doto Cards 



l/l Sourci 



Program 
J+ PROCESS. 



4 COPTN LINK] 
fr/EXEC ' WORK1 



SYSIPT 



Control Carat) 




SYSOOO 



Note: If you assume that the same device has been assigned 
to SYSRDR ans SYSIPT, the sequence of cards Is as 
shown. 



Printed 
Output 



SYSLST 



Figure 40. Arrangement of I/O Devices for 
the PL/I Program shown in 
Figure 39 
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Practical Considerations Regarding Program Execution 



(At the present stage, this section con- 
tains only preliminary information) . 



Overlay Facility 

With the Model 20 PL/I, you can divide 
(segment) large programs into segments that 
can all be executed one segment at a time 
in one job,. This feature allows you to 
save main storage and reduce the overall 
requirements of a program. 

Suppose you have a program consisting of 
many procedures that would not fit into 
main storage without partitioning. By 
means of SEGMENT compiler-control state- 
ments, which you must include between pro- 
cedures in the input deck, you can parti- 
tion your program into segments that can -- 
at execution time — be successively called 
into main storage and executed. 

A segment may consist of one or more 
procedures. Segments are called into main 
storage by the calling (fetching) procedure 
with a statement of the format CALL OVERLAY 
('segment-name'). The called segments suc- 
cessively overlay each other, except the 
first, the root_segment, which must remain 
active and reside in storage throughout 
execution of the problem program. 

When overlay is used, the second segment 
occupies the main storage immediately above 
the first segment. The third, fourth, 
etc., segments start, when they are over- 
laid, at the same location where the second 
segment started after loading. Each seg- 
ment, including the first (root) segment, 
must be preceded by the SEGMENT compiler 
control statement, which has the following 
format: 



| Name] Operation! Operand (s) I 

| + ISEGMENT |name [,option] | 

i j i j 

operandi§)_ 

name is the segment name, which has the 
same syntax as an external PL/I name, 
except that break characters are not 
allowed. The segment name is indepen- 
dent of any procedure name. 

option is a decimal integer constant 
specifying the load address of the root 
segment. It may optionally follow the 
name of the root segment. If this 
option is not specified or, if the pro- 



gram is. not segmented, the SE3MENT sta- 
tement is missing, the executable object 
program will be loaded immediately 
behind the end of the Monitor. 



CREATING_A_SEGMEHTED_PROGRAM 

To segment a program, include SEGMENT con- 
trol statements between procedures in your 
input deck; one or more procedures may fol- 
low each SEGMENT card. 

Figure 41 illustrates how you might seg- 
ment a program to be compiled, link-edited, 
and executed: 



// JOB PL1 , EXAMPLE 

(othar job-control statements) 

// EXEC 
+ COPTN LINK 
+ SEGMENT ROOT 
+ COPY 

(precompiled object module) 
+ PROCESS NODECK 

(PL/I source module) 
+ COPZ 

(precompiled object module) 

+ SEGMENT Y 
+ COPY 

(precompiled object module) 

+ SEGMENT X 

+ PROCESS N0DECK,N0XREF 



(PL/I source module) 



/* 



Figure 41. Segmenting a PL/I Program 



L0ADING_SEGMENTS 

During program execution, the individual 
segments are loaded by the fetching 
procedure (s) with a statement of the format 

CALL OVERLAY (' segment- name ') ; 
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CALL OVERLAY does not automatically 
invoke a procedure in the newly loaded seg- 
ment. This has to be done by a normal CALL 
statement or function reference. 

Ihe fetching procedure must always be 
contained in the root segment, never in one 
of the segments that are overlaid during 
program execution. 

However, within a segment, one procedure 
may call another procedure. Figure 42 
illustrates how segments are fetched and 
executed. 
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The structure of the overlay scheme of 
the above example is shown in Figure 43. 



// JOB PL1,EXAMPLE 

(other job-control statements) 

// EXEC 
+ COPTN LINK 
+ SEGMENT ROOT 
+ PROCESS NODECK 

A: PROCEDURE OPTIONS (MAIN) ; 
DCL (data-items) EXTERNAL; 
ON ENDFILE (filename) action; 
BEGIN: CALL OVERLAY (*SEGH1'); 
CALL B1; 

CALL OVERLAY ('SEGM2'); 
CALL B2; 
CALL B4; 



(PL/I source statements) 

END; 

SEGMENT SEGM1 
PROCESS NODECK 
B1 :PROCEDURE; 

DCL (data-items) EXTERNAL; 

(PL/I source statements) 

RETURN; 

END; 

SEGMENT SEGM2 

PROCESS NODECK 

B2:PR0CEDURE; 

DCL (data-items) EXTERNAL; 

(PL/I source statements) 

CALL B3; 

END; 
PROCESS 
B3:PR0CEDURE; 

DCL (data-items) EXTERNAL; 

(PL/I source statements) 

END; 
PROCESS 
B4: PROCEDURE; 

DCL (data-items) EXTERNAL; 



/* 



(PL/I source statements) 



END; 
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Figure 42.. Fetching PL/I Program Segments 



Automatically 
included Library 
Routines Used in 
SEGM1 but not 
in the Root Seg- 
ment 



Figure 43. Structure of Overlay Scheme 

U5E_0F_FILES_AND_STATIC_ST0 

Use_of _Files 

If you use files in the different segments 
of your program, observe the following 
rules: 

If (1) a file is declared in a procedure 
that is not contained in the root segment, 
(2) this file is opened in this procedure, 
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and (3) the segment in which this procedure 
is contained is about to be overlaid with 
another segment, close this file before the 
segment is overlaid. However, this restr- 
iction does not apply if the file is not 
only declared in the fetched segment in 
which it is opened, but also in the root 
segment. 

U§e_of _S tatic_Storage 

If you have data that is to be used in more 
than one segment, you must give the data 
the EXTERNAL attribute (which implies the 
STATIC attribute) or transmit them through 
argument lists of the CALL statement. FDr 
larger volumes of data, the use of the 
EXTERNAL attribute generally requires less 
storage than argument transmission. These 
data must be declared EXTERNAL in the root 
segment as well. However, where the argu- 
ments change, argument transmission is 
normally more useful. 



RULES_FOR_USING_OVERLAY 

This section gives a summary of the rules 
to be observed when using overlay: 

1. After a segment has been fetched into 
main storage, the procedure (s) con- 
tained in it may be activated by means 
of a call to the name of the procedure 
or, if more than one procedure is con- 
tained in the segment, by a call to one 
of the procedure names. 

2. The segment name is independent of any 
procedure name. It is assigned by 
means of the SEGMENT compiler-control 
statement contained in the input deck. 



3. CALL OVERLAY statements must always be 
contained in the root segment. 



4. The root segment cannot be overlaid. 
It is in storage throughout execution 
of the problem program. 

5. Any procedure of a segment may be acti- 
vated at any time after the segment has 
been loaded, provided it has not been 
overlaid. 

6. Fetching a segment already fetched into 
main storage causes the segment to be 
loaded again. The variables contained 
in the segment that are in static 
storage have no known values or the 
values specified in an INITIAL 
attribute. 

7. Names of segments to be fetched must be 
unique. Names of procedures in the 
whole program must also be unique. 

8. A library subroutine is automatically 
included in every segment in which it 
is used if (a) it is used in a segment 
other than the root segment and (b) it 
is not in the root segment. 

9. Data referred to in more than one seg- 
ment must either be given the EXTERNAL 
attribute in each segment in which they 
are used and in the root segment or 
they must be transmitted as arguments 
with the CALL statement. 

10. Files declared and opened in a segment 
below the root segment but not declared 
in the root segment also must be closed 
before the segment is overlaid by 
another segment. 
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Input/Output 



In this section, we will discuss and 
illustrate how to create a file and how to 
relate a file on an external medium to your 
program. 



The section headed Data_Transmission in 
Part I is prerequisite for the understand- 
ing of this section. 

Let us briefly repeat what a file is and 
how you can relate it to your program. 
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When a physical record contains two or 
more logical records, we say the records 
are blocked. Blocking permits a more com- 
pact and efficient use of external storage 
and a faster access to the logical records. 
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statement, see also the section Job 
Control) . 

Unlike a file, however, a file decla- 
ration has significance only in a program. 
For example, if you use the same file 
again, you may specify a different file 
name and some different attributes for it. 



File Organization 

The organization of a file determines how 
data is recorded in a file and how data may 
be retrieved from a file to be transmitted 
to a program for processing. 

For the Model 20 PL/I, a file may be of 
CONSECUTIVE_organization, in which case 
logical records can be stored in and retri- 
eved from a file in sequential order, or it 
may be of INDEXED_organiz_ation, in which 
case logical records may be retrieved from 
or stored in a file either in sequential or 
direct order, that is, on the basis of key 
values specified in the data- transmission 
statements. 



Files of CONSECUTIVE organization may be 
read or written in either stream- or 
record-oriented transimission. INDEXED 
files may be read or written in record- 
oriented transmission only. 

E.§cord_Formats 

Logical records can appear in one of three 
formats: fixed-lenath (format F) , 
variable-length (format V) , or undefined; 
i£H2.th (format U) . One of these record 
formats must be specified. They provide 
flexibility in the design of files and 
allow you to take advantage of the fixed- 
length and variable-length features of spe- 
cific input/output devices. 

The block size and the record size are 
specified as the number of bytes in a block 
or record, respectively. For format^F 
records, if the record size is not speci- 
fied in the ENVIRONMENT attribute, the 
records are assumed to be unblocked. The 
block size must be specified. The record 
size may be specified for format F records 
only. Blocking and deblocking is handled 
automatically. 

With format F records, blocking is based 
on the stated record size. The block size 
must be an integer multiple of the record 
size. 
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With format_V records, deblocking is 
based on information at the beginning of 
each block and at the beginning of each 
logical record. Four bytes are used at the 
beginning of each block to specify block 
length, and another four bytes are used at 
the beginning of each record to specify the 
length of that record. Although insertion 
of this length information is done automat- 
ically by the system when the file is 
created, you must include ths number of 
control bytes when you specify the length 
of the block in the ENVIRONMENT attribute. 
When format V files are created, records 
are always blocked if their lengths allow 
two or more to be placed into a block 



smaller than or equal to the maximum that 
is specified. 



With format-U records, each block con- 
sists of only one record. The blocks 
(records) are of varying lengths. No sys- 
tem control bytes appear anywhere within 
the block. All processing of record is 
your responsibility. If you include a 
length specification in the record, you 
must insert it yourself, and must retrieve 
the information yourself. 

Figures 44 through 46 illustrate record 
formats. 
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Figure 44. Example of Format-F Records on Magnetic Tape 
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Schematic Representation of Unblocked Format-F Records on Disk 
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Schematic Representation of Blocked Format-F Records on Disk, assuming five Records per Block. 



Figure 45. Example of Format-F Records on Disk 
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BL is Block Length 
RL is Record Length 
IBG is Inter-block Gap 



Figure 46. Example of Format-V Records on Magnetic Tape 
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CON SEC UTIVE_FILE_ORG ANIMATION 

In a CONSECUTIVE file, the logical records 
are organized on the basis of their succes- 
sive t hysical positions, such as they 
appear on magnetic tape. Records can only 
be retrieved in sequential order. There- 
fore, the associated files must either be 
declared with the SEQUENTIAL attribute or 
be STREAM files. 

Attributes_and_Options 

The file attributes, which are part of the 
PL/I language, are not discussed in detail 
here. They are explained in Part I, in the 
section Data_Transmission, and in Part II, 
in the section Attributes. 

The attributes you may specify for 
CONSECUTIVE~files are: 

FILE 

RECORD 

STREAM 

SEQUENTIAL 

INPUT 

OUTPUT 

UPDATE 

PRINT 

BACKWARDS 

ENVIRONMENT (options-list) 



Th 
ENVIR 
are: 



e 2Eti2S§ Y ou ma Y specify in the 
ONMENT attribute for CONSECUTIVE files 

[CONSECUTIVE] 

F (blocksize [ ,,recordsize ])j 

V (maxblocksize) 

U (maxblocksize) 

BUFFERS ([ 1 | 2 }) ] 

MEDIUM (symbolic-device-address, 

device-typa) 
CTLASA] 
LEAVE] 
NOTAPEMK] 
NOLABEL] 
VERIFY] 
ALTTAPE] 



The individual options -- which are not 
part of the PL/I language, but Model 20 
compiler keywords -- are discussed in the 
two programming examples shown in Figures 
47 and 48 in the sequence in which they 
appear . 

A complete list of all options you may 
use for CONSECUTIVE as well as INDEXED 
files is given later in this section under 
the heading The_ENVIRONMENT_Attribute_and 
i£s_Op_tions. See also Appendix_E i _File 
A t tribute s_and_Opt ions . 

^scord_Formats 

Records in consecutive files may be of for- 
mat F,, format V, or format U. The format V 



may be used only for record-oriented I/O, 
and only with tape units. However, format- 
V records cannot be read backwards. The 
format U may only be used for magnetic tape 
and printer-keyboard I/O. It must be used 
with i rinter-keyboard I/O. With magnetic 
tape I/O you may use format U with record- 
oriented transmission only. 

l££U_t^Out£Ut_De vices 

Input/output devices permitted for 
CONSECUTIVE files include magnetic-tape 
drives, card readers and punches, a 
printer-keyboard, disk-storage devices, and 
printers. 

Qreating_CONSECUTIVE_Files 

Followiny now are two simple programming 
examples that illustrate the use of files 
of CONSECUTIVE organization, their attri- 
butes and options. 
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Explanation; 



1 Assignments: The alternate tape drive 
must always be assigned to a symbolic 
device address that is one higher than 
that specified in the MEDIUM option. 

2 Labels: For an explanation of file 
labels refer to File_Labels in this 
section. 
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10 



11 



// JOB PL1 ,LISTTAPE 
// ASSGN SYS004,X' 780' , T2,X'C0' 

// ASSGN SYS005,X'782' ,T2,,X'C0' ALTERNATE TAPE UNIT 
// VOL SYS004,INP 

// TPLAB 'TRANSACTION FILE 00111100010001000700 70010 71009' 
// EXEC 

+ COPTN LINK,WORK2 

+ PROCESS LIST,CHAR60,ATR,NODECK 
LIST: PROCEDURE OPTIONS (MAIN) ; 

DCL IMP FILE RECORD INPUT ENV (MEDIUM (SYS004 ,24 00) 

F(2400,12Q) ALITAPE), 
PRT FILE RECORD OUTPUT ENV (MEDIUM (SYSLST, 2203) 

F(121) CTLASA), 
1 INRCD BASED (P) , 
2 KEY CHAR (8) , 
2 FILLER CHAR (112) , 
INSTREAM BASED(P) CHAR (120), 
1 OUTRCD, 

2 CTLASA_CONTROL CHAR (1) , 
2 TEXT CHAR (120) ,, 
(LINE FIXED (3) INIT (57) , OLDKEY CHAR (8), P POINTER) 
OPEN FILE (INP) , FILE (PRT) ; 
ON ENDFILE (INP) GOTO FINIS; 
LOOP: READ FILE (INP) SET (P) ; 
IF LINE > 56 THEN DO; 

CTLASA_CONTROL = '1'; 

LINE = 1; 

END; 

ELSE IF KEY = OLDKEY THEN DO; 

CTLASA_CONTROL = ' » ; 
LINE = LINE + 1; 
END; 

ELSE DO; 

CTLASA_CONTROL = '0' 
LINE = LINE + 2; 
END; 



STATIC; 



FINIS 
/* 



TEXT = INSTREAM; 
WRITE FILE (PTR) 
OLDKEY = KEY; 
GO TO LOOP; 
END; 



FROM (OUTRCD) 



\ L 

Note: 
They 



The numbers to the left of Figure 47 are used for explanation purposes only 
are not part of the coding. 



Figure 47. Programming Example Illustrating the Use of the ASA Control Characters for 
RECORD OUTPUT 



logical records. Since a multi-volume 
tape file is used, the option ALTTAPL 
must be specified in the ENVIRONMENT 
attribute. ALTTAPE indicates that an 
alternate tape drive is assigned to 
enable automatic switching from one 
drive to the other. 



a length of 121 bytes, the first being 
reserved for the ASA control character. 
An ASSGN statement for SYSLST is not 
needed since the device assignments for 
printers are taken from the device spe- 
cification in the MEDIUM option only. 



Relating_the_Program_to_the_Out£Ut 
j[ii§ : Tne connection between the pro- 
gram and the device on which the output 
file is to be stored is established by 
means of the FILE declaration for PRT 
which declares PRT to be an OUTPUT file 
that is to be printed on a 2203 printer 
assigned to the symbolic device address 
SYSLST. The records are unblocked with 



2i§£i£3_£he_Files. Both the input file 
INP and the output file PRT are opened 
(activated) which means that the file 
declarations for the two files are 
associated with the respective actual 
files on the external storage medium 
and that processing of the records can 
begin. 
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6 In the structure declaration for the 
output record OUTRCD, the first charac- 
ter is reserved for the ASA control 
character. 

9 Depending on the result of comparison 
operations, the ASA control character 
is either set to '1' which is inter- 
preted as "skip to channel 1 before 
printing", when the output record is 
printed, 

10 or set ot ' ' (blank) which is inter- 
preted as "space one line before 
printing" , 

11 or to '0' which is interpreted as 
"space two lines before printing". 

8 D e- A c t i v a t i ng__t h e_Pr ogx a m : The proces- 
sing loop ends automatically when the 
ENDFILE condition is raised for the 



input file INP. Control is transferred 
to the statement labeled FINIS by means 
of the ON statement. When control is 
returned to the Monitor by execution of 
the last END statement of the program, 
both files are automatically closed. 

The second_pro2rammin2_examp_le, shown in 
Figure 48, illustrates printer-carriage 
control for STREAM files. Printer-carriage 
control for STREAM files is achieved by 
means of the SKIP option in the PUT 
statement. 

The second program (LISTBACK) uses tape 
input that is on a multi-file tape volume 
which is to be read backwards in record- 
oriented transmission mode. 

E xp,la na ti on : 

1 The job-control statement // JOB PL1, 
LISTBACK specifies that the program 
LSTBACK is to be compiled, link-edited, 
and executed immediately. For an 
explanation of the other job-control 
statements, see the section Job_Control 
and the paragraph headed File_Labels in 
this section. For the compiler-control 
statements, see the section The 
Compiler. 

2 The input file that is to be processed 
by LISTBACK is related to LISTBACK by 
means of the FILE declaration which 
declares the file to be an INPUT file 
that is to be read BACKWARDS from a 



-T" 

n 



// PAUSE LOAD REEL 118 ON UNIT 81 
// JOB PL1 ,LISTBACK 
// ASSGN SYS007,X'781',T2 
// VOL SYS007,BACKT 

// TPLAB 'BACKWARDS EXAMPLE000 1 1 80001 00020001 01 70111 70113* 
// FILES SYS007,6 
// EXEC 

+ COPTN LINK,WORK2 
U + PROCESS LIST,ATR,NODECK 

LISTB: PROCEDURE OPTIONS (MAIN) ; 

DCL BACKT FILE INPUT RECORD BACKWARDS ENV 
2 Ll (MEDIUM (SYS007,2400) F (1500,100) LEAVE), 

PRT FILE OUTPUT PRINT ENV (MEDIUM (SYS003, 2400) 

3 | | F(121) NOLABEL NOTAPEMK) , 
1 INRCD BASED (P) , 2 KEY CHAR (8) , 2 TEXT CHAR(92), 
(SKIP FIXED (1), P POINTER, OLDKEY CHAR (8) ) STATIC; 

4 ] OPEN FILE (BACKT) , FILE (PRT) PAGESIZE (48) ; 
ON ENDFILE (BACKT) GO TO FINIS; 

5 | OLDKEY = HIGH (8) ; 
LOOP: READ FILE (BACKT) SET (P) ; 

IF KEY = OLDKEY THEN SKIP = 1; ELSE SKIP = 2; 
PUT FILE (PRT) SKIP (SKIP) EDIT (KEY, TEXT) (A,X(5),A); 
OLDKEY = KEY; 
GO TO LOOP; 
FINIS: END; 

/* 

i j . 

Figure 48. Programming Example Showing Printer-Carriage Control for STREAM Files 
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multi-file tape volume. The file BACKT 
is on the multi-file tape volume 
assigned to the symbolic-device address 
SYS007. (It is the file following the 
sixth tapemark on the volume (FILES 
control statement) .) 

The records are of blocked format, with 

15 logical records, each of a length of 
100 bytes. On input, the records are 
automatically deblocked, so that the 
program deals only with the logical 
records. 

The LEAVE option in the ENVIRONMENT 
attribute is used to specify that no 
rewind operation is to be performed 
when the file BACKT is opened. You 
should always specify it for files that 
have the BACKWARDS attribute to ensure 
proper positioning of the file. 

3 The file PRT that is to be created by 
LISTBACK is declared as an OUTPUT tape 
file that is to be printed. The attri- 
bute PRINT specifies that the first 
byte of each logical record of the 
STREAM file is to be reserved for an 
ASA control character needed for 
printer-carriage control. The records 
are unblocked and of fixed length. 
Since output is stream-oriented, in 
this example, the records must not be 
blocked. 

The options NOLABEL and NOTAPEMK in the 
ENVIRONMENT attribute specify that no 
label processing is to be done for the 
file. On output, a tapemark is auto- 
matically written as the first record 
on the tape, unless NOTAPEMK is speci- 
fied in the ENVIRONMENT attribute. 

4 Both the input and the output file are 
opened by means of the OPEN statement 
which specifies the names of the files 
to be opened. The PAGESIZE option spe- 
cifies that, before writing beyond the 
48th line, the ENDPAGE condition is 
raised. Since no appropriate ON state- 
ment is given, standard system action, 
i.e., advancing to a new page, is 
taken. 

5 OLDKEY is assigned an initial value of 

16 hexadecimal Fs. 

6 A printer-carriage control character is 
created preceding each output record on 
tape. 

^ccessing_a_CONSECUTIVE_File 

An existing CONSECUTIVE file can be 
accessed in two ways: either as an INPUT 
or as an UPDATE file. 



Reading of an INPUT file may be either 
stream- or record-oriented. If the file is 
on magnetic tape, it may be read either 
forward or backwards. 



Transmission of an UPDATE file must 
always be record-oriented. An UPDATE file 
cannot have the STREAM, BACKWARDS, or PRINT 
attributes. The attribute UPDATE specifies 
that the record is to be read, processed, 
and rewritten into its previous place in 
the existing file. Only disk files may be 
updated. 



It is not possible to insert additional 

records into an existing CONSECUTIVE file 

or to extend it by adding records at its 
end* 



DISK ORGANIZATION 

A file of INDEXED organization is always on 
a direct-access device. For the Model 20 
System, this is a 1316 Disk Pack used with 
the 2311 Disk-Storage Drive Model 11 or 12. 



Before we come to the discussion of 
INDEXED file organization, we will, there- 
fore, first deal with the organization of 
the IBM 1316 Disk Pack, as shown in Figure 
49. 



The_IBM_13_16_Disk_Pack 

The 1316 disk pack is the medium on which 
data is stored externally. It is mounted 
on a 2311-11 or 2311-12 disk-storage drive. 
Let as consider the physical characteris- 
tics of the 1316. 



A 1316 disk pack consists of six disks. 
The top surface of the upper disk and the 
bottom surface of the lowest disk are not 
used, which leaves ten surfaces for storage 
of data. Each disk surface has 203 con- 
centric tracks of which, on a 2311-11, you 
may use tracks 004 to 202 whereas, on a 
2311-12, you may use only tracks 004 to 
102. Track 1, 2, 3, etc., on each surface 
is physically located below or above track 
1, 2, 3, etc., of the other surfaces. Each 
group of ten vertically aligned tracks can 
therefore be said to form an imaginary 
cylinder. 200 or 100 cylinders, respec- 
tively, are used for actual recording 
defending on the disk pack used; the 
remaining three are reserved. (Refer to 
Figure 49) . 
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Figure 49. 1316 Disk Pack and Access Mechanism 



The 2311 has one access arm, equipped, 
with ten read/write heads. These heads are 
aligned vertically so that data contained 
in one and the same cylinder can be 
accessed without any mechanical movement of 
the arm from track to track. This, how- 
ever, makes it necessary to switch from 
surface to surface within a cylinder when a 
file being written overflows from track to 
track or when one track has been read and 
the file continues on the next. When a 
cylinder is filled with data, writing con- 
tinues on the first track of the next 
cylinder. This technique reduces the time 
needed to move the access arm. 



Thus, a disk pack is thought of as con- 
sisting of 200 or 100 cylinders, each 
cylinder in turn consisting of ten tracks. 
A consecutive set of tracks or cylinders 
set aside for usage of a specific file is 
referred to as an extent. 



Each track consists of ten sectors. 
Each sector can accommodate 270 bytes of 
data. When reading records from, or writ- 
ing them onto disk, one or more complete 
sectors are always read or written. Parts 
of sectors cannot be transferred. A single 
read or write operation may transfer the 
contents of one 270-byte sector, of several 
sectors of a single track, or of several 
sectors of two or more tracks within the 
same cylinder. A single read or write com- 
mand must not exceed cylinder limits. 



The fact that only one or more complete 
sectors can be read or written is important 
in dealing with disk-file organization. 

All records written on disk must be of 
fixed length (format F) . They may be 
blocked or unblocked. Only one logical 
record at a time is available for proces- 
sing by the problem program. However, data 
may be transferred between a disk file and 
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main storage in blocks of two or more log- 
ical records. 

For example, assume that a file is spe- 
cified to contain unblocked logical records 
of 160 bytes in length. In this case, the 
first 160 bytes of each sector contain one 
record. Note that 110 bytes of each sector 
are wasted. The input/output area that is 
automatically established in main storage 
is 270 bytes in length to accommodate one 
complete sector, even though only 160 bytes 



of each sector are utilized by a logical 
record. This is obviously wasteful. In 
this example, unblocked records result in 
poor utilization of disk capacity. An 
additional disadvantage is a delay in 
retrieval of records (slower retrieval 
times as compared with retrieval of blocked 
records) . 

Figure 50 shows the possibilities of 
blocking records to achieve good utiliza- 
tion of the disk area. 



UNBLOCKED RECORDS 



160 bytes per record 
1 record per sector 




3 RECORDS PER BLOCK 



160 bytes per record 
3 records in 2 sectors 




5 RECORDS PER BLOCK 



160 bytes per record 
5 records in 3 sectors 




Figure 50. Comparison of Blocked and Unblocked Records 
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INDEXEp_FILE_ORGANIZATION 

For the Model 20, a file of INDEXED organi- 
zation is always on a 1316 disk pack 
mounted on the 2311-11 or the 2311-12 disk- 
storage drive. The structure of an INDEXED 
file is basically sequential. Its records 
are arranged in logical sequence according 
to keys that are associated with every 
record. The key must be a character string 
that represents an item within the record, 
such as a date or a name. Each key must be 
unique. Records may be retrieved either 
sequentially or directly. 

INDEXED file organization offers the 
following additional features not provided 
by CONSECUTIVE file organization: 

• Sequential retrieval of records within 
specified limits in the file. 

• Direct retrieval,. 



inserted on the last active track of the 
file in a previous run. In this case, the 
file must be entirely rewritten. 

Ia s .§Etion_of _New_Records 

You may also insert records with new keys 
into the file. For the insertion of new 
records, you must reserve overflow areas 
within the file. 

Deletion_gf _Racords 

Deletion is not accomplished by physically 
removing the records from the file. If you 
want to delete records, you must specify 
this by writing a deletion code in each 
record to indicate that it is to be removed 
when the file is eventually reorganized by 
a reorganization program that you must 
supply yourself. 

Indexes 



• Extension of the file at its end. 

• Insertion of new records without copying 
the whole file. 

When an INDEXED file is created (or 
loaded) , it must be created as an INDEXED 
SEQUENTIAL OUTPUT file. INDEXED DIRECT 
files cannot be output files. The records 
of the file to be written must be pre- 
sorted to the required sequence. Once an 
INDEXED file is created, it may be 
retrieved in either sequential or direct 
access mode. 

Sequential_Retrieval 

Sequential retrieval permits all records of 
the file to be read into main storage, 
beginning with the record that is lowest in 
sequence. However, you may also read only 
a portion of the file by specifying the key 
of the lowest record of that portion and 
then processing as many records as 
required. The lowest record is retrieved 
in direct access and the file is then pro- 
cessed sequentially by READ statements 
without source keys until the upper limit 
is reached. 

£i£§£t_Retrieval 

For direct retrieval, you must specify a 
source key in every READ statement. 

File_Ex tens ion 

An INDEXED file may be extended at its end, 
once it has been created. For file exten- 
sion, the records that are to be added must 
all have keys that are higher in sequence 
than the key of the last record of the cur- 
rent file. Note, however, that extension 
is not possible if a record has been 



The ability to read and write records any- 
where in an INDEXED file is provided by 
indexes that are t art of the file. Two 
types of indexes are automatically con- 
structed whenever a file is created or 
extended: a cylinder_index for the entire 
file, and a track_index for each cylinder. 
An entry in a cylinder or track index con- 
tains the identification of a specific 
cylinder or track and the highest key asso- 
ciated with that cylinder or track. The 
indexes are automatically retrieved and 
searched when their use is required, that 
is, when a READ, WRITE, or REWRITE state- 
ment with a source key is encountered dur- 
ing execution of a program. 

When new records are added to the file, 
as insertions or extensions, the indexes 
are automatically modified to account for 
the new records. 

In addition to the prime_data_area, whose 
tracks initially receive the records of an 
INDEXED file, there are overflow areas for 
records forced off their original tracks by 
the insertion of new records. An overflow 
area called a cy_linder_overf low_area, may 
be designated for each cylinder of the 
prime data area. If a large number of 
additions is anticipated, an independent 
2X§rf low_area may be designated to supple- 
ment or replace the cylinder-overflow 
areas. This area must be defined as a 
separate extent. 

When a new record is to be inserted in a 
track that is already full, the records 
already on the track with keys that are 
higher in sequence than the key of the 
record to be added are removed and — after 
insertion of the new record -- written back 
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first 45 bytes of each card are pro- 
cessed, even though a complete card is 
fed through the card reader each time a 
READ statement is executed. 

The format of the records to be written 
on the INDEXED file is described ia the 
structure declaration DATA. The key, 
which, in this example, has also the 
name KEY, starts with the eighth char- 
acter of the record as specified by the 
KEYLOC option in the file declaration. 
The length of the key, 12 characters, 
must be the same as specified in the 
KEYLENGTH option. 



EXTENTNUMBER (3) serves 
one index extent, one pr 
extent, and one independ 
area, or (b) one index e 
prime data extents. Of 
last extent actually is, 
cified by the third job 
statement for this file 
this example) . Two trac 
are set aside for later 
overflow records by the 
option. The records of 
loaded are blocked with 
tor of 6. Since the fil 



for either (a) 
ime data 
ent overflow 
xtent and two 
which kind the 

has to be spe- 
control XTENT 
(not shown in 
ks per cylinder 
insertion of 
OFLTRACKS 
the file to be 
a blocking fac- 
e is to be 



saved for later usage, the VERIFY 
option has been specified to assure 
error detection during writing of 
blocks on the disk pack. 

3 The printer will be used only in excep- 
tional cases, that is, when the KEY or 
the ENDFILE condition is raised. 
Therefore, the use of only one buffer 
will not impair performance 
significantly. 

5 Even though the key is already in its 
final position in the record, the 
KEYFROM option must be specified with 
the WRITE statement. 

6 This point is reached each time a key 
is out of sequence. The program need 
not be terminated; it proceeds with 
reading the next record. 

7 The program is terminated by detecting 
an end-of-file statement, /*, in card 
columns 1 and 2 in the input file. A 
termination message is printed. 

In the second example, shown in Figure 
53, the file created in the previous 
example is updated and records are added to 



ADDUPD: PROCEDURE OPTIONS (MAIN) ; 

DCL INPUT FILE RECORD INPUT ENV (MEDIUM (SYSIPT ,2520) F ('45) ) , 
INDEX FILE RECORD UPDATE DIRECT EN V (MEDIUM (SYS008, 231 1) 

F (270,45) 
INDEXED KEYLENGTH (12) KEZLOC(8) EXTEHTNUMBER (3) 
OFLTRACKS (2) VERIFY) , 
1 DATA BASED (P) , 

2 PERS_NO PIC (7) 9' , 
2 INKEY CHAR(12) , 



1 FDATA, 

2 PERS_NO PIC (7)9" , 
2 FKEY CHAR (12) , 



P POINTER STATIC; 
/* FILE ACTIVATION*/ OPEN FILE (INPUT) , FILE (INDEX) ; 
ON ENDFILE (INPUT) GO TO END_OF_JOB; 
ON KEY (INDEX) GO TO NEW_RECORD; 
/* PROCESSING LOOP*/ 
LOOP: READ FILE (INPUT) SET (P) ; 

READ FILE (INDEX) INTO (FDATA) KEY (INKEY) ; 
/* UPDATE RECORD IN 'FDATA' BY 'DATA'*/ 

REWRITE FILE (INDEX) FROM (FDATA) KEY (FKEZ) ; 

30 TO LOOP; 

/* ADD NEW RECORD TO INDEXED FILE */ 
NEW_RECORD: WRITE FILE (INDEX) FROM (DATA) KEYFROM (INKEY) ; 

30 TO LOOP; 
END_0F_J0B: END; 
i J 

Figure 53,. Updating of and Addition of Records to an INDEXED File 
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the file. The distinction between updating 
and adding is made by use of the KEY condi- 
tion. The KEY condition is raised when 
searching for a record with a READ state- 
ment is unsuccessful. In this case, adding 
instead of updating is performed. 

Explanation: 

1 The attribute DIRECT implies the attri- 
bute KEYED. 

3 The key (INKEY) / which is used to 
determine whether a record is to be 
updated or added, is provided by the 
card file INPUT whose records are read 
into the structure DATA. 

2 Since both the card record and the old 
record from the INDEXED file are needed 
for updating, an extra structure, 
FDATA, is used for holding the records 
of the INDEXED file. 

5 If a record with a key specified in 
INKEY is not yet on the INDEXED file, 



control branches automatically to the 
statement label NEW_RECORD where the 
new records are added to the INDEXED 
file. 



The updated record is written back into 
its previous location on the INDEXED 
file. 



In the third ex 
54, sequential reg 
(SAMPLE) are punch 
output file (PUNCH 
regions to be punc 
keys and lower key 
(CONTRL) . The bio 
file is 525 bytes 
tors, so that 15 b 
ace left unused, 
uses the ASA contr 
causes the cards f 
of the MFCM to be 
cards receive runn 
to 80. 



ample, shown in Figure 
ions of an INDEXED file 
ed into cards with an 
) . The limits of the 
hed are defined by upper 
s read from a third file 
ck length of the INDEXED 
occupying two disk sec- 
ytes of the second sector 
The output file (PUNCH) 
ol character W, which 
rom the secondary hopper 
fed into stacker 4. All 
ing numbers in columns 76 



INDXPC: PROCEDURE OPTIO 

DCL SAMPLE FILE 

ENV (MEDIUM ( 

KEYLOC(1) E 

DCL CONTRL FILE 

F (24) BUFFE 

DCL PUNCH FILE 

F(81) CTLAS 
DCL 1 INDEX_REC 
2 KEY CHA 
2 OTHER C 
1 OUTREC, 
2 CTL_CHA 
2 RECORD, 
3 KEY C 
3 OTHER 
2 NUMBER 
1 CTL_REC, 

2 (LOWER, U 
NO FIXED DE 
/* FILE ACTIVAT 
OPEN FILE(SAMPL 
ON ENDFILE (CON 
/* CONTROL-FILE 
READ FILE (CONT 
READ FILE (SAMP 
GO TO E_2; 
/* SAMPLE-FILE 
READ FILE (SAMP 
IF INDEX_REC.KE 
RECORD = INDEX_ 
NUMBER = NO; 
WRITE FILE (PUN 
NO = NO + 1 ; 
GO TO SLOOP; 
EOJ: END; 



CLOOP: 



SLOOP; 
E 2: 



NS(MAIN) ; 

RECORD INPUT KEYED SEQUENTIAL 
SYS006,2311) INDEXED KE YLENGTH (1 2) 
XIENTN0MBER(3) F(525,75)); 

RECORD INPUT ENV (MEDIUM (SYSIPT ,2560P) 
R5(1)) :; 
RECORD OUTPUT ENV (MEDIUM (SYSOPT ,2560S) 



R(12) , 
HAR (6 3) , 

R CHAR-(I) INH ('H') , 

HAR(12) , 

CHAR (63) , 
PIC (5) 9«, 

PPER) CHAR (12), 

CIMAL (5,0) INIT(1); 

ION */ 

E) , FILE (CONTRL) , FILE (PUNCH); 

TRL) GO TO EOJ; 

LOOP */ 
RL) INTO (dL_REC) ; 
LE) INTO (INDEX_REC) KEY (LOWER) ; 

LOOP */ 

LE) INTO (INDEX_REC) ; 

Y > UPPER THEN GO TO CLOOP; 

REC; 

CH) FROM (OUTREC) ; 



Figure 54. 
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NDEXED File and (b) Stacker Selection 
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ExEii. nation: 

1 The READ statement for the first record 
of each sequential region to be punched 
requires the KEY option to position the 
file to the specified lower limit. 

2 Further READ statements to transmit 
records of the same sequential region 
do not require the KEY option. The 
next sequential record is read 
automatically. 

3 The IF statement tests whether the 
upper limit of the region to be punched 
has been exceeded. If it has, a branch 
to CLOOP is taken, where the next con- 
trol key from the file CNTRL is read. 

4 This is a structure assignment. Note 
that both structures have the same 
structuring and description, but no 
identical level numbers. Level numbers 
need not be identical. 

lkccessinq_INDEXED_Files 

Records in INDEXED files are arranged on 
the basis of keys that are associated with 
each record. INDEXED files may be trans- 
mitted only in record-oriented mode. They 
must be created as INDEXED SEQUENTIAL 
OUTPUT files. Once they have been created, 
they can be accessed only as INPUT or 
UPDATE files, for either sequential or 
direct retrieval. 

To retrieve the entire file sequential- 
ly, you may read it just like a CONSECUTIVE 
file, without specifying a key. To read 
only a given portion of the file, you must 
specify the key of the lowest record of 
that portion and then test whether the key 
of the highest record of that portion has 
been reached. The records between the low- 
est and the highest record can be retrieved 
without specifying source keys in the READ 
statements. 

To retrieve records from an INDEXED file 
in random order, you must specify a source 
key with every READ statement to identify 
the record to be retrieved from the file. 
And, in the file declaration, you must spe- 
cify the attribute DIRECT, together with 
the option INDEXED., 

For an INDEXED file that is to be retri- 
eved sequentially, you must specify the 
attributes SEQUENTIAL and KEYED, together 
with the option INDEXED in your file 
declaration. 



The ENVIRONMENT Attribute and Its Options 

The ENVIRONMENT attribute is an 
implementation-defined attribute that spe- 



cifies various file characteristics that 
are not part of the PL/I language. 

The options list for the Model 20 PL/I 
compiler is as follows: 



[CONSECUTIVE] 
LlNDEXED J 



F (blocksize[ ,recordsize ])) 

V (maxblocksize) 

U (maxblocksize) 
[BUFFERS ({ 1 ] 2}) ] 

MEDIUM (symbolic-device-address, 
device-type) 
[CTLASA] 
[LEAVE] 
[ NOTAPEMK] 
[NOLABEL ] 
[ ALTTAPE] 
[VERIFY] 
[ NOWRITE] 
[KEYLENGTH 

(decimal-integer-constant) ] 
[ EXTENTNUMBER 

(decimal-integer-constant) ] 
[OFLTRACKS 

(decimal-integer-constant) ] 
[ KEYLOC (decimal-integer-constant) ] 



General Rules: 

1 . Each file declaration must have an 
associated ENVIRONMENT attribute. 

2. The options must be enclosed in paren- 
theses and separated by one or more 
blanks. 

3. The MEDIUM option and one of the record 
format options (F, V, and U) must 
always be specified. The others are 
optional. Their use depends upon the 
associated files that are to be 
processed. 

The individual options are discussed in 
the sequence in which they are listed 
above. 



£he_CONSECUTIVE_gp_tion 

The option CONSECUTIVE indicates that the 
logical records of the associated file are 
arranged on the basis of their successive 
physical positions, such as they appear on 
tape. 

General_Rules: 

1. A CONSECUTIVE file must either have the 
SEQUENTIAL attribute or be a STREAM 
file. 

2. If neither the CONSECUTIVE nor the 
INDEXED option is specified in the 
ENVIRONMENT attribute, CONSECUTIVE is 
assumed by default. 
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3. Once a CONSECUTIVE file has been 
created, it may be opened only as an 
INPUT or UPDATE file. Such a file may 
be read either forward or backwards if 
it is on magnetic tape. In order to be 
read backwards, it must have the 
BACKWARDS attribute, and the LE&VE 
option specified in the ENVIRONMENT 
attribute. 

4. All three kinds of record formats -- F, 
V, and U — are allowed for CONSECUTIVE 
files. The last two formats, V, and U, 
may be used only for RECORD I/O and 
only with magnetic tape. As an excep- 
tion to this rule, printer-keyboard 
files must always consist of format-U 
records. Format-V records, however, 
cannot be read backwards. 



4. Only format-F records (blocked or 
unblocked) may be used with INDEXED 
file organization. 

5. LOCATE and READ with the SET option are 
not allowed for INDEXED files. 

rhe_Opt.ions_F / ._V^__and_U 

The options F, V, and U are used to 
describe physical records. F specifies 
fixed-length records, V specifies variable- 
length records, and U specifies records of 
undefined length. 

Records may be blocked or unblocked. 
Block size and record size are specified in 
number of bytes, as unsigned decimal integ- 
er constants. 



5. I/O devices permitted for CONSECUTIVE 
files include magnetic tape units, card 
readers and punches, disk-storage 
drives, printer-keyboards printers. 

The_INDEXE.D_Ot.tion 

The INDEXED option specifies that the 
records of the associated file has or will 
have its records arranged in logical 
sequence, according the keys associated 
with every record. 

1. An INDEXED file may be created only as 
an INDEXED SEQUENTIAL OUTPUT file. 
Once it has been created, it may be 
processed as an INDEXED SEQUENTIAL 
OUTPUT file only if it is to be 
extended, in which case the keys of the 
extended part must be higher in the 
collating sequence than the keys of the 
already existing part. Although you 
can extend an INDEXED SEQUENTIAL file 
at its end, you cannot insert new, 
additional records into it. 

INDEXED DIRECT files may be opened only 
for INPUT or UPDATE activity. You can- 
not extend an INDEXED DIRECT file at 
its end, but you can replace old 
records and insert new, additional 
ones. 



Gen_ral_Rul es : 
Format-F records: 

1 . If the record size of format-F records 
is not specified in the ENVIRONMENT 
attribute, the records are assumed to 
be unblocked. In case of blocked 
records, record and block size must be 
specified. The record size can be spe- 
cified for format-F records only. 
Blocking and deblocking is handled 
automatically. It is dependent upon 
the stated record size. The quotient 
of block size divided by record size 
must be an integer. Fixed- length 
blocked records are constructed if, on 
output, both block size and record size 
are specified. The blocking factor is 
the block size divided by the record 
size. 

2. For INDEXED files, only format-F 
records (blocked or unblocked) are 
allowed. The maximum block size for 
INDEXED files is 16200, the maximum 
record size 4090 bytes. 

3. For STREAM files, only fixed-length, 
unblocked records are allowed, with the 
exception of printer-keyboard files 
which require format-U records. 

Format-V records: 



2. Only record-oriented retrieval is per- 
mitted with INDEXED files. 

3. The key associated with each logical 
record must always be a character 
string of not more than 60 characters. 
The length of the recorded key must be 
specified in the ENVIRONMENT option 
KEYLEN3TH (n) . The high-order position 
of the key — which is always embedded 
in the actual data part of the logical 
record -- is specified in the 
ENVIRONMENT option KEYLOC (n) . 



1. Blocking and deblocking of format-V 

records is dependent on the information 
at the beginning of each block and at 
the beginning of each logical record. 
Four bytes are used at the beginning of 
each block to specify block size, and 
another four bytes at the beginning of 
each logical record to specify the size 
of that logical record. Although the 
block and record sizes are inserted 
automatically in these four bytes when 
the file is created, you must include 
the number of these bytes when you spe- 
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2. 



cify the length of the block in the 
ENVIRONMENT attribute. When format-V 
files are created, records are always 
blocked if their sizes allow two or 
more records to be placed into a block 
smaller than or equal to the maximum 
that is specified. 

Format-V records cannot be read 
backwards. 



£he._BUFFERSJn)__D£tion 

The BUFFERS (n) option is used to specify 
that buffer storage area is used for data 
transmission. If you specify BUFFERS (2) , 
input/output activity can run concurrent- 
ly with internal processing. 



General Rules: 



Format-U records: 

1. With format-U records, each block con- 
sists of only one record. The blocks 
(records) are of varying lengths. No 
system-control bytes appsar anywhere 
within the block. All processing of 
records is your responsibility. If you 
include a length specification in the 
record, you must insert it yourself, 
and you must also retrieve this infor- 
mation yourself. 

2. The two formats V and may be used 
only with record-oriented magnetic tape 
I/O, printer-keyboard files must con- 
sist of format-U records. 

3. The minimum and maximum physical record 
sizes (or block sizes) that are allowed 
with the various I/O devices are shown 
in Figure 55. 



1. The number n must either be 1 or 2. 



2. If the BUFFERS (n) option is not spe- 
cified, the number of buffers is 
assumed to be 2, except for INDEXED 
DIRECT files. 



3. BUFFERS (n) may be used with both 
STREAM and RECDRD files. 



The_MEDIUM_Op_tion 

The MEDIUM option in the ENVIRONMENT 
attribute -- and, if necessary, the ASS3N 
statement of the Model 20 Job Control — 
are used to associate a file on an 
external storage medium with a program. 
The format is: 
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Figure 55. Block Sizes Permitted Depend- 
ing Upon the I/O Devices Jsed 

4. When reading files with format V or U 
records, you normally decide from 
some control field in the record you 
must have inserted yourself, which 
type of record you are processing. 
In this case, you should use the READ 
statement with the SET option to 
avoid raising of the RECORD 
condition. 



MEDIUM (symbolic-device-address, 
devica-ty^ e) 



The symbolic-device-address entry 
relates a device to a particular file. 
The device-type entry defines the type of 
I/O device on which the file is located. 



General Rules: 

1. The symbolic device address is speci- 
fied as SYSnnn, where nnn can be IPT 

(system input device) , LST (system 
output device) , used for listing) , 
PCH or OPT (system output device used 
for punching or writing on. tape), or 
000 through 019 (as selected by the 
programmer) . 

2. OPT should not be used for Model 20 
PL/I programs that are expected to 
run under DDS/TDS as well. 

3. The device-type entry is a four or 
five-character code identifying the 
type of I/O device to be used. For 
example, for the IBM 2415 Magnetic 
Tape Unit, the code is 2400, for the 
IBM 2311 Disk Unit, the code is 2311. 
Figure 56 shows how the individual 
device types are specified. 
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Type | Device 

Card | IBM 1442 

Readers | IBM 2520 

and Punches |IBM 2560* 

|IBM 2560 2 

| IBM 2501 



Device-Type 
Specification 

1442 

2520 
2560P 
2560S 
2501 



Printers 



-+ 

| IBM 1403 
|IBM 2203 



Magnetic | IBM 2415 

I (9-track) 

Tape Units | IBM 2415 

| (7-track) 



Disk Storagej IBM 2311 

Printer- |IBM 2152 
Keyboard | 



1403 
2203 



2400 
2400 



2311 
2152 



1 Primary feed 

2 Secondary feed 



Figure 56. Device Types and Correspond- 
ing Specifications 

4. The device types listed in Figure 56 
may be assigned to the logical unit 
names SYSIPT< SYSLST, SYSPCH, SYSOPT, 
or SYS000 - SYS019, as shown in 
Figure 57,. 



Symbolic Device 
Address 



SYSIPT 



SYSLST 



SYSOPT, 
SYSPCH 



SYSO00 through 
SYS019 



Device Type 
Specification 



2501 

2520 

2560P 

2560S 

2400 

2152 



1403 
2203 
2152 



1442 

2520 

2560P 

2560S 

2400 

2311 and 2400 
and any of the 
above devices 



1 



Figure 57. Device Type Specifications 
that may be Associated with 
Symbolic Device Addresses 

5. The system automatically associates 
the symbolic device address with the 



device ty^e specified in the MEDIUM 
option of the ENVIRONMENT attribute. 
Only if standard assignments are 
used, no additional ASSGN job-control 
statements are needed. 
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6. All filas in Model 20 PL/I must be 
explicitly declared with the MEDIUM 
option in the ENVIRONMENT attribute. 
ASSGN statements are rejuired only if 
you want to change the previous 
device assignments for tape and disk 
files. 

7. With card, printer, and magnetic 
tape, only one file must be open at 
the same time for the same device. 
An exception is the 2560 multi- 
function card machine. With the 
2560, one file may be open at the 
same tima for each hopper. Disk 
files that are open at the same time 
must not have overlapping extents. 

With the 2152 printer-keyboard, one 
input and one output file may be open 
at the same time. For synchronisa- 
tion of these files, see Use_of_the 
E£i2£s£zKejrboard in the section Sp_e- 
£iii_E£2a£amming_Considerations. 

The_CTLASA_0£tion 

The CTLASA option may be used for card 
and printer RECORD OUTPUT files. It 
indicates that the first character of a 
record is to be interpreted as an ASA 
control character for printer-carriage 
control and for punched-card stacker 
selection. 

General Rules: 

1. It is your responsibility to provide 
the correct control character. For 
an example of its use, refer to 
C£eatin2_Files_of_C0NSECUTIVE_0raani2 
zation in this section. 
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2. The character codes you can use with 
CTLASA are listed in Figure 58. 



I Code | Int erp_r et at ion 



(blank) 



+ 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 



Space one line b 
Space two lines 
Space three line 
Suppress space b 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
printing 
Skip to channel 
printing 
Skip to channel 
printing 
Select stacker 1 
Select stacker 2 



efore print 
before prin 
s before pr 
efore print 

1 before pr 

2 before pr 
before pr 
before pr 
before pr 
before pr 
before pr 

8 before pr 

9 before pr 

10 before 

11 before 

12 before 

(5 if 2560 
(4 if 2560 



mg 

ting 

inting 

ing 

inting 

inting 

inting 

inting 

inting 

inting 

inting 

inting 

inting 



Figure 58. Character Codes that can be 

used with Printer Carriage Con- 
trol for Record Output Files 

Ih§_LEAVE^Option 

The LEAVE option is used for file position- 
ing. It is used to specify, that no rewind 
operation is to be performed when a tape 
file is opened or closed. 

General Rules: 

1. LEAVE can only be used with tape I/O 
files, either RECORD or STREAM. 

2. LEAVE should be specified for files 
that have the BACKWARDS attribute to 
ensure proper positioning of the file. 

Ihe_NOTAPEMK_0£tign 

The NOTAPEMK option for tape files enables 
you to prevent a leading tapemark from 
being written ahead of the data records in 
unlabeled tape files. 

General Rules: 

1. NOTAPEMK may be used for tape OUTPUT 
files with NOLABEL specified. 

2. NOTAPEMK may be used with STREAM and 
RECORD files. 

The_NQL ABEL _Opt ion 

The NOLABEL option is used to indicate that 
no label processing is to be done for the 
associated file. 



General Rules: 

1. If the NOLABEL option is specified for 
output files, a tapemark is automatic- 
ally written as the first record on the 
tape unless, in addition to NOLABEL, 
NOTAPEMK is specified in the 
ENVIRONMENT attribute. Labels are not 
processed. 

2. If your program is to run as an inquiry 
program the NOLABEL option must be spe- 
cified for all tape files. 



£he_ALTTAPE_Option 

The ALTTAPE option is used to indicate that 
an alternate tape drive can be assigned to 
enable automatic switching from one tape 
drive to another. 

1. The ALTTAPE option is used for multi- 
volume tape files. 

2. The alternate tape drive is always 
assigned a symbolic device address that 
is one higher than the symbolic device 
address specified in the MEDIUM option. 
For example, if the symbolic device 
address specified in the MEDIDM option 
is SYS004, the symbolic device address 
for the alternate tape drive is SYS005. 



The_VERIFY_Op_tion 

The VERIFY option causes a check to be per- 
formed after every WRITE operation. 

G e ne r a 1_R ul e s : 

1 . The VERIFY option is allowed only for 
files that are associated with a 2311 
disk-storage device. 

2. It is recommended to use VERIFY if the 
disk file is to be retained for re-use 
at a later date. 



Ihe_NOWRITE_Option 

The NOWRITE option is used to specify that 
no new records will be added to the file by 
the associated program. This results in 
loading a smaller library routine, thus 
saving main storage space. 

General Rule: 

This option may only be used with DIRECT 
UPDATE files. 
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Ih§_OYLENGrH_Oktion 

The KETLENSTH (n) option is used to specify 
the length of the recorded key for I/O 
operations. 

General Rules: 

1. This option may be used only for 
INDEXED files. 

2. The length of the recorded key, speci- 
fied by n, must not exceed 60 
characters. 

3. n must be an unsigned decimal integer 
constant. 



field is to start in the second byte of the 
record, KEYL0C(2) has to be specified. 

General Rules: 

1. The KEYLOC(n) option is used with 
INDEXED files only. It must be 
specified. 

2. The number n must be a decimal integer 
constant. 

3. At least three bytes in the logical 
record must follow the last byte of the 
key. 



The_EXTENTNDMBER_Option 

The EXTENTNUMBER (n) option is used to spe- 
cify the number of extents used for INDEXED 
files. 

General Rules: 

1. EXTENTNUMBER (n) must be specified for 
INDEXED files. It is not permitted 
With CONSECUTIVE files. 

2. The minimum number that may be speci- 
fied is two: one extent for the prime 
data area, and one for the cylinder 
index. 

3. The number n must be a decimal integer 
constant. 

4. EXTENTNUMBER (n) must include all prime 
data area extents, the cylinder index 
extent, and the independent-overflow 
area extent, if any. 

Tke_O^LTRACKS_Op_tion 

The OFLTRACKS (n) option is used to specify 
the number of tracks to be reserved on each 
cylinder for the addition of new records* 

General Rules: 

1. This option is specified only for 
INDEXED SEQUENTIAL OUTPUT and INDEXED 
DIRECT UPDATE files. It is meaningless 
for INPUT and SEQUENTIAL UPDATE files. 
If specified for these files, the 
option is ignored. 

2. The number n -- which must be a decimal 
integer constant — must be from to 



Ih§_KEyLOC_0£tion 

The KEYLOC (n) option is used to specify the 
high-order position of the key field within 
the data part of each logical record in 
INDEXED files. For example, if the key 



File Labels 

A reel of tape may be, whereas a disk pack 
must be identified to determine whether it 
contains the file to be processed. Besides 
a sticker on the pack or reel that identi- 
fies a volume to the operator there are 
also internal labels. The internal label 
is written, like other data, on the tape or 
on the disk and provides programmed identi- 
fication of the files contained in the 
volume. 

Internal labels are also used to protect 
files on a volume from being destroyed. 
For example, labels are checked to deter- 
mine whether the correct volume has been 
mounted. Another use of labels is to spe- 
cify the location of the data files. 
Labels also contain other information con- 
cerning files, such as expiration dates. 
They are processed whenever an OPEN or 
CLOSE statement is executed for a particu- 
lar file. 

There are two types of internal labels: 
volume labels and file labels. 

Volume_labels are used to identify the 
volume (tape reel or disk pack) . They are 
written by IBM-supplied Utility programs 
when a tape reel or a disk pack is prepared 
for use. They are automatically checked 
each time a file is opened. 

£ii§_I§bels are used to identify a file 
on a volume and to specify how long a file 
is to be retained on the volume. When an 
OPEN statement is encountered for a file, 
the information contained in the file 
labels is compared against the information 
supplied by the job-control statements. If 
a mismatch is found, a message is displayed 
to the operator and execution of the pro- 
gram may be discontinued. 

In our discussion, we will be concerned 
mainly with file labels. Volume labels are 
of minor interest to the programmer. 
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PONCHED_CARp_AND_PRINT_FILES 

Punched card, printer-keyboard, and print 
files cannot be labeled. 



Only one VOL and one TPLAB statement are 
needed for each logical file, regardless of 
the number of reels on which the file is 
recorded. 



TAPE_FILES 

Tape files may be labeled or unlabeled. 

SBl§beled_Tape_Files 

In the case of unlabeled tape files, neith- 
er the volume nor the file is associated 
with an identification. The operator must 
make sure that the correct volume is 
mounted by checking external labels. When 
working with multi-file volumes, the opera- 
tor must also correctly position the volume 
at the beginning of the file in question 
(// FILES card) . 

The first record on a tape containing 
unlabeled files may or may not be a tape- 
mark; however, every unlabeled tape file is 
follows*! by a tapemark,. The last file on a 
volume is always followed by two tapemarks. 

If the first record on a tape containing 
unlabeled files is not a tapemark, the 
record is assumed to be a data record. 

If no labels are specified for an output 
tape file,, no label checking is performed, 
and any labels on the output tape are 
destroyed. A tapemark is automatically 
written on the output file unless, in addi- 
tion to the option NOLABEL, the option 
NOTAPEMK has been specified in the 
ENVIRONMENT attribute of the associated 
file declaration. 

Labeled_Tape_Files 

There are two types of labels: header 
labels and trailer_labels. The header 
label precedes each file and defines it. 
The trailer label is written at the end of 
the file. It furnishes the information 
required to determine whether the end of 
the file has been reached or whether the 
file is continued on another volume. 

Label information for tape files is fur- 
nished to the Job Control program in two 
consecutive control cards: The VOL and the 
TPLAB card. 

The VOL card is simply a header card for 
the TPLAB card. It contains the file name 
and the symbolic device address and serves 
a diagnostic function. It is used to check 
whether the device assigned to the symbolic 
address in the TPLAB card is really a tape 
drive. The TPLAB card contains the file 
identification, file sequence number, and 
all other information used by the Open rou- 
tine to position and identify the file. 



DISK_FILES 

Disk files must be labeled, that is, the 
volume and the actual file must both be 
identified. However, these labels do not 
precede or follow the individual file on 
the disk. The file labels are contained in 
a special region referred to as VTOC 
(Volume Table of Contents) . 

Disk labels are also automatically writ- 
ten, checked, and updated by IBM-supplied 
programs. The correct mounting of the 
packs is checked by means of the volume 
serial number. The positioning at the 
beginning of the actual data on the volume 
is done by means of the file identifica- 
tion. In your program, you need only spe- 
cify the filename and the symbolic device 
address. Switching from volume to volume 
for multi-volume files is automatic without 
any programming effort. 

All information necessary to locate the 
data on the disk pack is specified in the 
job-control statements. A set of three 
related, consecutive control statements is 
used: the VOL, DLAB, and XTENT statements. 
The VOL and DLAB statements have the same 
function for disk files as the correspond- 
ing control statements have for labeled 
tape files. The XTENT statements contain 
the symbolic device address to locate the 
drive, the volume serial number to deter- 
mine whether the correct pack is mounted, 
and the extent limits. 



LABEL- C0NT10L_STATEMENTS 

The label-control statements for tape and 
disk must precede the // EXEC statement in 
the following sequence: 

for tape files: 

// VOL 
// TPLAB 

for disk files: 

// VOL 
// DLAB 
// XTENT 
// XTENT 
[// XTENT] 
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YO t_C on trgl_ Statement 

A VOL (volume) control statemen 
required for each labeled tape 
file used in your problem progr 
indicates the symbolic address 
device to which the volume is a 
identifies the file by name. A 
statement must be followed by a 
trol statement if the volume is 
magnetic tape, or by a DLAB con 
ment and one or more XTENT cont 
ments if the volume is a disk p 
format of the VOL control state 



I T T ■ 1 

| Name| Operation| Operand (s) Comments { 

t is J- f f 1 

and disk | // JTPLAB J 'label-information' j 

aias. It l j. jl j 

of the 
ssiqned and 

VOL control Ll§k§lzinl2E3<|tionl 

TPLAB con- The information in fields 3 through 10 

a reel of of the standard IBM tape label (see 

trol state- Figure 59) for the associated file. The 

rol state- label information must be enclosed in 

ack T The apostrophes. The following information 

ment is: is required: 



i 1 1 1 

| Name | Operation | Operand (s) Comments | 

j. + + ^ 

|// I VOL I symbolic-device-address, | 
| | | filename I 

u j, j J 

§Ilbolic^dev ice- address 

The symbolic address identifies the 
device on which the associated file is 
to be read or written. (A complete list 
of symbolic device addresses is given in 
the discussion of the ASSGN control 
statement) . 



filename 

The name of the file to be processed. 



Note: If the symbolic device address 
refers to a tape drive, a TPLAB control 
statement is expected as the next control 
statement. If it refers to a disk drive, 
DLRB statement is expected to follow. 



Field 



10 



Contents 



File identification 

File serial number 

Volume sequence number 

File sequence number 

Generation number 
(if used) 

Version number (if used) 

Creation date (yyddd 
preceded by one blank) 

Expiration date (yyddd 
preceded by one blank) 



No. of 
Characters 



17 

6 

U 
4 

2 
6 



-H 



Figure 59. Label Information for Tape 
Files 



TPLAB_Control_Statement 

The TPLAB (tape label) control statement 
contains a portion of the tape header label 
for the file named on the VOL control sta- 
tement that precedes the TPLAB control sta- 
tement. The contents of the tape file 
label are shown in Figure 59. The informa- 
tion in the TPLAB control statement is used 
to check input-file tape labels or write 
output-file tape labels. The format of the 
TPLAB control statement is: 



The file-label fields required in the 
operand field of a TPLAB control statement 
mast be contiguous and not separated by 
commas. The operand requires 51 columns 
(two apostrophes with 49 columns of infor- 
mation between them) . 



The standard IBM tape-file label format 
and contents are as shown in Figure 60. 
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I Field] Name and Length 



| Description 



10 



f ile_identif ication 
17"bytes7 EBCDIC 

£ ii§_§§li3;l_S]Jifeer 
6~bytes, EBCDIC 



Y°luiD§_ sequence 
number 
4~bytes, EBCDIC 

f ii§_§§qu§S£e_number 
4 bytes,, EBCDIC 

generation_number 

4~bytes„ EBCDIC 

v§rsion_number_of 

2§£§E&ii2B 
2~bytes, EBCDIC 

creation_date 
6 bytes, EBCDIC 



§x£iElttion_date 
6 bytes7 EBCDIC 



uniquely identifies the entire file; may contain only 
printable characters. 

uniquely identifies a file/volume relationship. 
This field is identical to the Volume Serial Number in the 
volume label of the first or only volume of a multi-volume 
file or a multi-file set. This field will normally be num- 
eric (000001 to 999999) but may contain any six alphameric 
characters. 

indicates the order of a volume in a given file or 

multi-file set. The first must be numbered 0001 

and subsequent numbers must be in proper numeric sequence. 

assigns numeric sequence to a file within a multi-file set, 
The first must be numbered 0001 . 

uniquely identifies the various editions of the file. 
May be from 0001 to 9999 in proper numeric sequence. 

indicates the version of a generation of a file. 



indicates the year and the day of the year the 
file was created; 



Position 
1 


blank 


Meaning 
none 


2-3 


00-99 


year 


4-6 


001-366 


day of year 



(e.g., January 31, 1970 would be entered as 70031). 

indicates the year and the day of the year when the file 
may become a scratch tape. The format of this field is 
identical to that of Field 9. On a multi-file reel, pro- 
cessed sequentially, all files are considered to expire on 
the same day. 



Figure 60. Label Information for Tape Files 



2LAB_Control_Statement 

The DLAB (disk label) control statement 
contains the disk-label information for the 
file named in the VOL control statement 
that precedes the DLAB control statement. 
The information in the DLAB control state- 
ment is used to check input-file disk 
labels or write output-file disk labels. 
The format of the DLAB control statement 
is: 

I 1 T 1 

| Name| Operation |0perand (s) Comments | 

y + + ^ 

|// |DLAB | label-information | 
i i i j 

label- information 

Information contained in the disk label 
for the associated file. Fields 1-3 of 



the disk file label (a 51-character 
string) are punched into the DLAB state- 
ment as they appear in the label. The 
contents of the file label are shown in 
Figure uc. The character string must be 
enclosed in apostrophes and followed by 
a comma. If the label information is to 
be cataloged permanently, the comma must 
be followed by the code P followed by a 
blank (See Per mane nt_and_rempora.ry__Disk 
Labels in this section) . The remainder 
of the required label information, 
beginning with the volume sequence num- 
ber, is punched into a continuation 
card. Therefore, column 72 of the DLAB 
control statement must contain a con- 
tinuation punch (any EBCDIC character 
except blank) . The information in the 
continuation card must begin in column 
16. Columns 1-15 must be left blank. 
The fields in the continuation card are 
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I T 

IFieldlName and Length 



Description 



3a 



identification 
4tTbytes,~EBCDIC 



£°.LSLat_identifier 
1 byte, EBCDIC 



f ile_serial_number 
6 bytes, EBCDIC 



£°£§_f 2I_£§Iffia£eQt_label 
2 bytes, EBCDIC 

Y2iiiI§_§§3iJ§a£§ 
number 

4 bytes 

££§§;tion_aa.te 

5 bytes 



§2Ei£§£ion_d.cite 
5 bytes 



§.Z§.tem_code 
13 bytes 



this field serves as identifier of the file. Each 
file must have a unique filename. Duplication of 
filenames will cause retrieval errors. The Model 20 
Disk Programming System compares the entire filename 
field against the filename given in the DLRB card. 

1 



uniquely identifies a file/volume relationship. 

It is identical to the volume serial number of the first 

or only volume of a file. 

specifies that the label is to be cataloged permanently 
(optional) . 

indicates the order of a volume relative to the 
first volume on which the data file resides. 



indicates the year and the day of the year the file 
was created. It is of the form yyddd, where yy signi- 
fies the year (0-99) and ddd the day of the year 
(1-366) . 

indicates the year and the day of the year the file 
may be deleted. The form of this field is identical to 
that of Field 5. 

uniquely identifies the programming system. The 
character codes that can be used in this field are 
limited to 0-9, A-Z, or blanks. 



Figure 61. Label Information for Disk Files 



separated by commas. The last field 
(system code, 13 characters) is option- 
al, and if used, must be enclosed in 
apostrophes. The following fields are 
used: 







No. of | 


IField 


IContents |Characters| 


j. 

I 1 


. + + . 

I File Identification | 


n 

U4 | 


I 2 


| Format (always | 
| coded as 1) | 


1 | 


I 3 


| File serial number | 


6 I 


| 3a 


| Code for permanent label| 


2 I 


I ^ 


| (optional) | 
| Volume sequence number | 


^ I 


I 5 
I 6 
I 7 


ICreation Date (yyddd) | 
| Expiration date (yyddd) | 
| System code (optional) j 


5 I 

5 I 

13 | 



The standard IBM disk-file label (see 
Figure 61) is common to all data files on 
disk : 



XTENT_Control_Statement 

In addition to the VOL and DLAB control 
statements, the user must provide at least 
one XTENT control statement for SEQUENTIAL 
files and at least two XTENT control state- 
ments (prime data area plus cylinder index) 
for an INDEXED file. The format of the 
XTENT control statement is: 



] Name l Operation | Operand (s) 



Comments J 
1 



I// |XTENT | type, sequence, lower-limit, | 
I | | upper-limit , I 

I | | ' volume-serial-number' , | 
I | j symbolic-device-address 1 
i j -_j j 



type 

A code indicating the purpose of the 
extent: 

1 for prime data area 

2 for independent overflow area 
4 for cylinder index area 
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Note_l: At least one type-1 XTENT state- 
ment must be among the file definition 
statements. 

Note_2: Only one XTENT statement is 
allowed for types 2 and U. If type 2 is 
used, it must be the last XTENT statement 
for that file. 

Note_3: If an independent overflow extent 
exists, a cylinder- index extent must also 
be specified. 

Note_4: If a cylinder-index extent is spe- 
cified, the prime-data extents must be on 
cylinder boundaries (i.e., lower limit 
track 0, upper limit track 9). The index 
extent itself may not occupy more than ten 
tracks. 



Note_3: A volume serial number is assigned 
to each disk pack by the Initialize Disk 
Utility program. 



symbolic- device-address 

The symbolic address of the device on 
which the volume containing the extent 
is mounted. 



Notes: 

• The symbolic-device-address operand in 
the VOL and first XTENT statement must 
be assigned to the same actual device 
address. 



seguence 

The three-digit extent seguence number 
(ESN) , indicating the position of the 
extent within a multi-extent file. The 
ESN may be any of the numbers 000-255. 
The extent sequence numbers must be spe- 
cified in ascending order, but not 
necessarily consecutive. 



lower-limit 

The address of the beginning (lowest 
disk address) of the area. The address 
is given in the form cccchhh, where cccc 
is the four-digit cylinder number (0000- 
0202) and hhh the three-digit head num- 
ber (000-009) . The lower-limit address 
must not be cylinder 0, track 1. It 
should at least be cylinder 4, track 0. 



ilEEer-limit 

The address (form cccchhh) of the end 
(highest disk address) of the area. 



Note: A file must not occupy the volume 
label area (cylinder 0, track 1) or the 
alternate track area (cylinders 1-3) . 



Ivolume-serial- number * 

An EBCDIC character string (6 charac- 
ters) enclosed in apostrophes. 

Note_l: The file serial number of the DLAB 
statement and the volume-serial- number 
operand of the first XTENT statement must 
be identical. 

Note_2: If several volume serial numbers 
occur in a group of XTENT statements, the 
statements with identical volume serial 
numbers must be grouped together. 



The symbolic-device-address operand in 
XTENT statements with the same volume 
serial number must be assigned to the 
same actual device address. 



The volume-serial-number operand of the 
XTENT statement is used for controlling 
multi-volume processing. For INDEXED 
files located on more than one disk 
pack, multi-drive operation is 
mandatory. 



One disk volume may contain several 
files, each with its own extent. The 
volume serial number in the XTENT state- 
ment must be the same for all these 
files. The symbolic device address in 
the VOL statements may be different for 
these files, but the actual device 
addresses in the ASSGN statement must be 
the same. 

One-drive users may also use different 
files with different volume serial num- 
bers assigned in the XTENT statements. 
They must then change disk packs before 
a file with a different volume serial 
number is opened or processed. 

If different extents are used for one 
set of VOL and DLAB statements the sym- 
bolic device addresses and the volume 
serial numbers in the XTENT statements 
must refer to the correct disk pack. 

All information for the XTENT statement 
can be accommodated on one card; the 
information must not be continued on a 
continuation card. 



For examples of label-information con- 
trol statements refer to Figure 62. 
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n 


1 


2 


3 


4 


5 


6 


7 


7 


8 


I 























2 






I// 

I// 

I// 

I// 

I// 

I// 

I 

I// 

I// 

I// 

I// 

I 

I// 

I// 

I// 

I// 



JOB FIRST 

ASSGN SYS001,X'708',T2 

FILES SYS001 r 1 

VOL SYS001,KEY 

TPLAB 'KEY TAPE FILE 

EXEC 



00038400010001000102 70085 71085' 



MULTI-VOL, SINGLE DRIVE 



JOB SECOND 
ASSGN SYS002,X' 801' ,D3 
VOL SYS002, INPUT 
DLAB 'INPUT DATA FILE 

0001,70032,71033, '0 000000000000' 
XTENT 1,001, 0011003, 0011006, 'SSSSSS' , SYS 002 
XTENT 1,003,0201000,0202 09, ' TTTTTr ' , SYS 00 2 
XTENT 1,008, 00 50008, 0060006, 'UUUUUU' ,SYS002 
EXEC 



1SSSSSS' , 



MULTI-VOL, TWO DRIVES 



|// JOB THIRD 

\// ASSGN SYS019,X'802' ,D3 

|// VOL SYS002, OUTPUT 

|// DLAB 'OUTPUT DATA FILE 

| 0001, 70032, 71033, '00000 00000000' 

|// XTENT 1,004,0023001,0023001, ' SSSSSS' ,SYS002 

|// XTENT 1,099,0050008,0060006, ' A1 2BCZ ' , S YS 19 

I// EXEC 

i , «. 



1SSSSSS' ,P 



Figure 62. Example of Using Label Information Control Statements 



Multi-File Volumes 

The handling of multi-file volumes requires 
no special programming effort. All infor- 
mation required for locating the correct 
file is contained in the job-control 
statements,. 



TAPE_FILES 

Files on a multi-file tape reel may be 
labeled or unlabeled. Labeled_tape_fil.es 
are identified by file header and trailer 
labels. Unla_beled_tap_e_f iles are identi- 
fied by tapemarks, that is, a tapemark 
separates one file from the next. 



To position labeled tape files, you may 
also use the FILES card. Note, however, 
that three tapemarks are associated with 
every tape file that is labeled. 

For tapes that are to be read backwards, 
you must specify the attribute BACKWARDS 
and the option LEAVE for the file to be 
processed to prevent the normal rewinding 
of the tape when the file is opened. You 
must also use the FILES statement to prop- 
erly position the file, if it has not been 
properly positioned by a previously 
executed program. 

Figure 63 shows the format of a labeled 
multi-file real. 



E2§i__2__£a_2f _____le___ape_F_les 



If a reel of tape contains mo 
file and BACKWARDS reading is 
fied, the label processing ro 
file-seguence number to posit 
correctly. The file-sequence 
the header labels are checked 
file sequence number in the T 
ment, and the files on the ta 
bypassed until a match is fou 
of the tape is reached. If t 
positioned beyond the desired 
search is started or if the f 
contained on the tape, the op 
notified. 



re than one 
not speci- 

utines use the 

ion the file 
numbers in 
against the 

PLAB state- 

pe are 

nd or the end 

he tape is 
file when a 

ile is not 

erator is 



/olunx 
Lob.1 



Flrat 
Hwxler 
Lob.1 



Tap* 
Mark 



First 
Data 



Tap* 



Flnr 
Tralltr 
Lob.1 



Tap. 
Mark 



Second 
Hrakr 
Label 



Tap. 



Socond / Fit* 



Top. 



Figure 63. Format of Labeled Tape File 
(Multi-File Reel) 

Eositioning_of_Unlabeled_Tape_Files 

Unlabeled tape files are positioned on a 
multi-file reel in accordance with the 
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entries of the FILES statement, which has 
the following format: 

I 1 T 1 

| Name|Operation^Operand (s) Comments | 
l. + + n 

]// | FILES | symbolic-device-address, | 

I I I skip | 

i j i j 

§Ilfe2ii2~ ^§_ vice -address 

The name of the tape drive on which the 
tape to be positioned is mounted. (A 
complete list of symbolic-device 
addresses is given in the discussion of 
the ASSSN statements in the section Job 
Control) . 

skip 

The number of tapemarks to be skipped (1 
- 999, counted from the load point) in 
order to position the tape. 

Note that a tapemark may or may not precede 
the first file on the tape, while a tape- 
mark must always follow each file. 

The use of the FILES statement is illus- 
trated by the following example. 

Exajnple : 

Suppose you have a tape reel that contains 
unlabeled files. Each file on the tape is 
delimited by tapemarks as shown in Figure 
64. 





Tap. 


Firit 


Tape 


Second 


Tape 


Third 


Tape 


Fourth 


Tape 


Fifth 


Tape 




Mark 


File 


Mark 


File 


Mart 


File 


Mark 


File 


Mark 


File 


Mark 


I 


i 























Load 
Point 



Figure 64. Unlabeled Files and Tape Marks 

Case___: 

To read the first file on this tape for- 
wards, you need not specify a FILES state- 
ment at all. To read the first file on the 
tape backwards, however, you must use the 
following FILES statement: 

// FILES SYSnnn,2 

When this statement is executed, the 
first two tapemarks are skipped and the 
tape is positioned immediately behind the 
second tapemark. The file is then pro- 
cessed backwards, if you have specified the 
BACKWARDS attribute and the LEAVE option in 
the ENVIRONMENT attribute of the associated 
file declaration. 



Case_2: 

To read the third file on the tape forward, 
your FILES statement must look as follows: 

// FILES SYSnnn,3 

The first three tapemarks are skipped 
and the tape is positioned at the beginning 
of the third file. 

If the first file on the tape is not 
preceded by a tapemark, the FILES statement 
has to read as follows: 

// FILES SYSnnn,2 



DISK_FILES 

The handling of multi-file volumes on disk 
storage reguires no special preparation, 
since all file labels are available when 
the file is opened. The positioning at the 
beginning of a file on a disk volume is 
done automatically by means of the file 
identification. 



Multi-Volume Files 

Generally, the handling of multi-volume 
files requires no special programming 
effort either. All information required 
for processing multi-volume files must be 
contained in the job-control statements and 
in the ENVIRONMENT attribute of the asso- 
ciated file declaration. The only excep- 
tion is with unlabeled multi-volume tape 
input files. 



TAPE_FILES 

Multi-volume tape files should always be 
labeled because end-of-volume conditions 
raised for unlabeled multi-volume tape 
input files are not handled automatically. 
You must handle them in your program as 
described below under the heading I^sition- 
iS3_of -Unlabel ed_Tape_Fil.es. Note that 
multi-volume tape files cannot be read 
backwards. 

E2§i_i2_ili3_2f _k_J2_I_£_Ta£___iles 

A multi-volume labeled tape file is always 
automatically positioned at the beginning 
of the first reel, if correctly mounted by 
the operator. The labels are checked by 
the system. 

To enable automatic switching between 
tape units with labeled multi-volume files, 
you must specify the option ALTTAPE in the 
ENVIRONMENT attribute for the file to be 
processed. For the alternate tape, you 
must assign (by means of the ASSGN control 
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statement) a symbolic device address that 
is one higher than the one specified in the 
MEDIUM option of the ENVIRONMENT attribute 
for the associated file. The ALTTAPE 
option saves you extra mounting time when 
an end-of-volume condition arises. (For an 
example illustrating the use of the ALTTAPE 
option, refer to Figure 62. 

£2§i£i22i£2_2lL2£!§J2eled_Tape_Files 

An unlabeled multi-volume tape file is 
always automatically positioned at the 
beginning of the first reel. 

End-of-volume conditions that arise dur- 
ing the processing of unlabeled multi- 
volume tape input files, are not handled 
automatically by the system. You may, how- 
ever, handle end-of-volume conditions for 
these files in your program. 

On input, the ENDFILE condition is 
raised when the end of volume is reached. 
You may now use a control field you have 
inserted in your file to decide whether the 
end of file or the end of volume has been 
reached. When an end-of-volume has been 
reached, you must close the file and reopen 
it when the new reel has been mounted. 

For unlabeled multi-volume tape output 
files, you may specify the ALTTAPE option 
to achieve automatic switching between 
volumes. For unlabeled multi-volume tape 
input files, the ALTTAPE option cannot be 
used. 



the label-information area in any Job Con- 
trol run. 



CATALOGING LABEL INFORMATION 

To identify permanent label information, 
the DLAB control statement must contain the 
code P followed by a blank in the two- 
character field following the file serial 
number. For example: 



// DLAB 'OUTFILEbbb 1 SSSSSS ' , Pb . . 



label information 
(5 1 characters) 



Col. 72 



l2i§ : *f both permanent and temporary 
label information is specified with the 
same Job Control run, the control state- 
ments providing the permanent information 
must precede those providing temporary 
label information. 

When processing a disk file whose label 
information is already cataloged, you can 
omit the VOL, DLAB, and XTENT statements 
from the job-control cards preceding the 
program to be executed. 

The ability to catalog label information 
of disk files is of special importance for 
running inquiry programs (see Ing_uiry__Pro- 
grams in this section) . 



DELETING CATALOGED LABEL INFORMATION 



DISK FILES 



you can delete permanent labels from the 
label information area with the following 
statement : 



All information needed to position a multi- 
volume disk file correctly is contained in 
the job-control statements. The XTENT sta- 
tements supply the necessary information 
regarding each extent occupied by a file. 
Switching from one volume to the next is 
automatic. It reguires no programming 
effort on your part. However, with an 
INDEXED file, all volumes used by the file 
must be mounted when the file is opened. 



PERMANENT AND TEMPORARY DISK LABELS 



I T T "I 

| Name| OperationJOperand (s) | 

j. + f j 

|// |DELET I[filename1,filename2,. . . ] | 

i j j _j 

If the operand field is blank, all per- 
manent labels will be deleted from the 
label-information area. 

If the operand field contains a file 
name, the permanent label information for 
that file will be deleted. 



For every disk file to be opened, the per- 
tinent label information must be available 
to the system when the file is opened. 

The required label information may eith- 
er be supplied in the job-control cards 
preceding the program to be executed, or it 
may already be contained as a permanent 
entry in the label-information area of the 
system disk pack where it is checked by the 
Open routine when the file is opened. Per- 
manent label information may be added to 



The DELET control statement enables you 
to make room for new labels if the label 
information area is full, or if the file to 
which the label refers has expired. 

The control statement may be inserted 
anywhere between the JOB and the EXEC con- 
trol statements but (1) it must not inter- 
rupt the sequence VOL, DLAB, XTENT or VOL,, 
TPLAB, (2) disk-label information state- 
ments may not appear anywhere before a 
DELET statement. 
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DISPLAYING PERMANENT LABELS 

You may display all permanent labels by 
using the following control statement: 

■I T T 1 

| Name) Operation! Operand I 

|// |DSPLY | I 

L i _L , J 



VOL and XTENT cards. The actual device 
address -- in this case that of a 2311 disk 
drive — is then determined from the stan- 
dard assignment or from // &SSGN state- 
ments, respectively. The serial-number 
field of the XTENT statement is compared 
against the volume label of the 1316 disk 
pack to determine whether the right pack 
has been mounted. 



The DSPLY statement may be placed any- 
where between the JOB and EXEC statements, 
but it must not inerrrupt the sequence VOL, 
DLAB, XTENT (or VOL, TPLAB) . 

The DSPLY statement is executed as soon 
as it is encountered. The information dis- 
played consists of the filename, the 
expiration date, and the extents of the 
pertinent file. 

The DSPLY statement enables you to 
determine which label information is per- 
manent and to check the expiration date of 
your files. 



Inquiry Programs 

Inquiry programs which are initiated by 
pressing the Request key on the printer- 
keyboard, do not begin with a Job Control 
run,. Therefore, all disk-label information 
required by the inquiry program must be 
provided in an earlier Job Control run as 
permanent labels. Labeled tape files can- 
not be processed by inquiry programs. 



Program-Label Communication 

Figure 65 shows the communication between a 
PL/I source program, the object program, 
job-control statements, and a 2311 disk 
drive with a 1316 disk pack. 

The FILE table (I/O control) produced by 
the PL/I compiler somewhere contains the 
filename as a character string. The com- 
munication between this table and the actu- 
al file extent (s) is established by storing 
the extent information in the table during 
execution of the OPEN statement. 

The VOL statement in the deck of control 
statements used during opening the file 
contains the same filename as stored in the 
character string of the FILE table. The 
symbolic device address is taken from the 



The remaining action depends on the type 
of file. For INPUT or UPDATE files, the 
VTOC on the disk pack is searched for a 
label matching the file identification 
entered in the DLAB statement (EMPLOYEE 
MASTER FILE in Figure 65) . When a matching 
label is found, the remaining file informa- 
tion is checked against the label informa- 
tion in the VTOC, and the extent informa- 
tion is passed to the FILE table to allow 
proper addressing of the blocks to be 
transferred. 

In the case of OUTPUT files, all exist- 
ing labels in the VTDC are checked to 
determine whether the extents of any exist- 
ing, unexpired file overlap with the 
extents of the file to be created. The 
file is opened only if there is no overlap 
with any unexpired file. The new label is 
then written into the VTOC. 

If an unexpired file with the same iden- 
tification as the file to be created alrea- 
dy exists on the disk pack, the action 
taken depends on the file organization. If 
the new file is a CONSECUTIVE file, it can- 
not be opened. If it is an INDEXED file, 
it can be opened only to be extended. 
(Note that all extents that are required 
for creation of an INDEXED file and all 
extents that might be required later when 
new records are to be added, must be speci- 
fied for the initial creation of the file) . 

In the case of CONSECUTIVE multi-volume 
files, one volume will be opened at a time, 
i.e., the second volume is opened when the 
last extent of the first volume has been 
processed, etc. Opening of the second and 
following volumes is automatic. Thus, no 
explicit OPEN statement need be given. For 
INDEXED multi-volume files, all volumes 
will be opened at once. Therefore, all 
volumes to be processed must be mounted at 
the same time. 

The handling of tape-label information 
is similar. 
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//ASSGN SYS004, X'SOl', D3 



7XTENT 1,000,01000 000,01 29009, VOL12A,SYS004 



// DLAB EMPLOYEE MASTER FILE 



7/VOLSYS004, FILEA 



UNIT J 




2311 Disk Unit 



VTOC contain- 
ing label of 
EMPLOYEE 
MASTER FILE 



Object program 
FILE table 



DC CL8' FILEA 



PL/I source program 



DECLARE FILEA FILE 
UPDATE ENVIRONMENT 
(MEDIUM (SYS004, 2311) 



file information chain 

Information flow between VTOC and FILE table at open timed 

I/O statements control actual data transfer 



Cataloging 



If you have a PL/I program you frequently 
use, you may catalog this program into the 
core-image library as a permanent entry and 
call it each time you want it to be 
executed,. This greatly reduces the time 
required for card or tape reading. When 
you no longer need the cataloged program, 
you can delete it from the core-image 
library and use the same storage space for 
other purposes. 

The program used to catalog a PL/I pro- 
gram into or to delete it from the core- 
image library, is the CMAINT (Core-Image 
Library Maintenance) program. Therefore, 
the first control statement needed for 
cataloging or deleting a PL/I program is 
always the JOB control statement with the 
operand named CMAINT: 

I T T 1 

| Name| Operation) Operand I 

|// | JOB | CMAINT I 

L 1 I « J 



A CATAL statement, encountered on 
SYSRDR, specifies that the next program 
segment is to be read and cataloged from 
either the device assigned to SYSIPT or the 
relocatable area. If read from SYSIPT, it 
must be an executable object program stored 
on either cards or magnetic tape. 



When setting uj- the control statements 
for cataloging from SYSIPT, you must con- 
sider whether or not the same device is 
assigned to SYSIPT and to SYSRDR. Another 
posibility is to catalog from the relocat- 
able area on disk. In the following, all 
three methods are described: 



1. Cataloging from SYSIPT, with 
SYSIPT=SYSRDR 

2. Cataloging from SYSIPT, with 
SYSIPT*SYSRDR 

3. Cataloging from the Relocatable Area. 



CMAINT 

Identifies the operation as a main- 
tenance operation for the core-image 
library. 

For cataloging a PL/I program, the 
CMAINT program uses the information fur- 
nished to the compiler by the SEGMENT cards 
to identify the segments to be added to the 
core-image library. Thus, a program to be 
cataloged must always be preceded by a 
SEGMENT card, even if it consists of only 
one segment. For a compile- and- execute run 
of a one-segment program, however, no 
SEGMENT card is needed. 

You must make sure that the name of a 
segment to be cataloged is different from 
the name of any segment already cataloged 
in the core-image library, except if you 
want to replace an old segment. 

Cataloging a PL/1 Program into the 
Core-Image Library 

The control statement used to cause CMAINT 
to add a program segment to the core-image 
library is the CATAL control statement, 
which has the following format: 

I T T 1 

| Name] Operation| Operand I 

j. j- f ^ 

|// |CATAL | | 

L I I . J 



Cataloging_from_SYSIPT_l=SYSRDR)_ 

Suppose you have a precompiled object pro- 
gram consisting of any number of program 
segments, which you want to be cataloged 
into the core-image library. The input is 
to be read from the device assigned to 
SYSIPT, and the same device is assigned to 
SYSRDR. The control statements required 
for such a job are shown in Figure 66. 



|// JOB CMAINT 

|// ASSGN SYSIPT, . ,. . 

I// EXEC 

I 

| . (executable object program con- 

1 sisting of any number of program 

| segments) 

I 

|// END 

i 

Figure 66. Cataloging Program Segments 
from SYSIPT (=SYSRDR) 

Note that you have no CATAL cards here. 
CATAL cards are provided automatically by 
the compiler, one card per segment, if the 
option GODECK has been specified in the 
COPTN control statement preceding the 
program. 

A // END card must follow the input 
read from the device assigned to SYSIPT. 
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Cataloging^ rom_SYSIPT_l£_SYSRDR)_ 



Executing a Cataloged PL/I Program 



The control cards needed to catalog an 
executable object program consisting of 
three segments from SYSIPT, if different 
devices are assigned to SYSIPT and SYSRDR 
are shown in Figure 67. 



Control cards 
on SYSRDR 



Input read 
from SYSIPT 



|// Job CMAINT 

]// ASSGN SYSIPT,... . 

|// EXEC 

|// CATAL 

|// CATAL 

|// CATAL 

|// END 

| (executable object deck, 

J consisting of three 

| segments) 

I/* 



Figure 67. Cataloging from SYSIPT 
(*SYSRDR) 

For each segment in your executable 
object deck program you must supply a 
// CATAL statement on the device assigned 
to SYSRDR. The CATAL statements automat- 
ically provided by the compiler are 
ignored by CMAINT. 

A // END statement must follow the con- 
trol statements on SYSRDR, /* and a state- 
ment has to follow the input read from the 
device assigned to SYSIPT. 



£§taloging_from_the_Re^ocatable_Area 

In order to be cataloged from the relocat- 
able area, your program must have been 
compiled previously. The set of control 
statements needed to catalog such a pro- 
gram is shown in Figure 68: 



// JOB CMAINT 

// EXEC R 

// CATAL 

[ // CATAL] 

[// CATAL] 

(additional CATAL statements, 
as reguired) 

// END 



Figure 68. Cataloging from the Relocat- 
able Area 

For each program segment contained in 
the relocatable area, you must supply one 
CATAL statement on the device assigned to 
SYSRDR. Note that, when cataloging from 
the relocatable area, an R must be speci- 
fied in the // EXEC statement. 



The set of job-control statements needed 
to fetch a PL/I program from the core- 
image library for execution, looks as 
follows: 

// JOB program-name 
// EXEC 

The name of the root segment of the 
program to be executed. 

When the root segment of a multi- 
segment program to be executed has been 
called into main storage by the above set 
of control statements, the remaining pro- 
gram segments are successively called into 
main storage and executed one at a time. 
This is done automatically by a procedure 
in the root segment, with a statement hav- 
ing the format: 

CALL OVERLAY ('segment-name'); 

Thus, with the above set of control 
statements, you can call a program con- 
sisting of any number of segments from the 
core-image library into main storage for 
execution. (Refer to Overlay_Facility in 
the section P r act ical_Conside rations 
Ii§3ardin^_P^ogram_Execution) . 



Deleting a PL/I Program from the 
Core-Image Library 

When you no longer need a program con- 
tained in the core-image library, you can 
delete it with the DELET statement, which 
has the following format: 

|Name| Operationl Operand | 

j// JDELET ]segment-name j 

|// | DELET | name. ALL | 

i j i j 

segment- name 

The name of the segment to be deleted 
from the core-image library. 

name t ALL 

Indicates that all segments whose names 
begin with the characters specified in 
the left-hand portion of the operand 
(name) are to be deleted from the core- 
image library. The name may contain 
one to six characters. 

If, for example, all segments in your 
program start with the same three 
characters, you can delete all segments 
with one DELET statement, instead of 
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specifying a DELET statement for each five segments whose names all start with 

segment to be deleted,. the same two characters PS, but no other 

segments start with the two characters. 

Segments whose names begin with SYS or The set of control statements needed to 

$$$ must not be deleted. If $. ALL, delete all five segments of the program 

SY.ALL, S.ALL, or $$.ALL is specified, would look as shown in Figure 69. 
a halt occurs when a segment name 
beginning with the characters SYS or 

$$$ is encountered. i 

1 // JOB CMAINT | 

The operand ALL must not be the only | // EXEC | 

operand of the DELET statement in CMAINT 1 // DELET PS. ALL | 

programs. | // END | 



"i 



L. 



Example: 

Figure 69. Deleting a PL/I Program from 
Suppose you want to delete from the core- the Core-Image Library 

image library a program that consists of 
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Special Programming Information 



The following sections provide you with 
the information you need to fully use all 
of the facilities of PL/I under the Disk 
Programming System. 

(At the present stage, this section 
contains only preliminary information). 



Inquiries on the IBM 2152 Printer-Keyboard 

The IBM 2152 Printer-Keyboard can be used 
as an inquiry device. It is used for fast 
retrieval of information from disk files, 
with only a brief interruption of proces- 
sing in progress. You just enter the name 
of your inquiry program on the printer- 
keyboard. The job in progress is inter- 
rupted while the inquiry is made. 

The Model 20 DPS support for the 
printer-keyboard as an inquiry device con- 
sists of interrupt routines. Through the 
use of these IBM-supplied routines, an 
inquiry request entered on the printer- 
keyboard interrupts the job in progress, 
saves the status of that job, and 
initiates the processing of a specified 
user^written program,. After this program 
has been processed as an inquiry program 
the interrupted program is returned from 
the system disk pack to main storage and 
its execution is resumed. The intervening 
program, which must be in the core-image 
library, is called into main storage by 
entering the program name on the printer- 
keyboard,. It can occupy all of main 
storage, except for the part required for 
the Monitor, and can use any I/O devices, 
provided such use does not inerfere with 
the status of the interrupted program. 
This versatility enables it to perform the 
operations required of any program 
executed on the Model 20. The interrupted 
program is referred to as the mainline 
program. 



IN2HI2X_£R0GRAMS 

You can write an assor 
programs and store the 
library. An inquiry p 
operations to be perfo 
inquiry file and any o 
necessary. These norm 
disk files from which 
in a printer-keyboard 
retrieved. Note that 
requested during the p 
variety of mainline pr 
mainline programs are 



tment of inquiry 
m in the core-image 
rogram specifies the 
rmed, using the 
ther files that are 
ally include only 
records designated 
INPUT file are to be 
an inquiry may be 
rocessing of a wide 
ograms. If these 
operating with tape 



or card devices that are also accessed by 
the inquiry program, it may not be possi- 
ble to restore the interrupted mainline 
program to its original status. 

Some Model 20 DPS programs and certain 
routines in such programs must not be 
interrupted by an inquiry program. These 
programs and routines are listed in the 
SRL publication IBM_Sy.stem,/36 0_Model_20 x 
pisk_Programming_System^_Operatinq_Proce- 
^UE§§? Form C33-6004. 



The inquiry progra 
program, requires tha 
be supplied in order 
be used in the progra 
of course, must be on 
inquiry is requested, 
tion submitted to the 
in VOL, DLAB, and XTE 
have been cataloged p 
vious Job Control Run 
information area. (R 
TemEorary_Disk_Labels 
l£Eu£^2 u±E 22 £ • 



m, like any other 
t label information 
to open disk files to 
m.. The disk files, 
-line at the time the 
The label informa- 

Job Control program 
NT statements must 
ermanently in a pre- 

into the label- 
efer to Permanent_and 

in the section 



All programs compi 
PL/I compiler can be 
grams as well as inqu 
ever, programs runnin 
must not use labeled 
tect a PL/I program f 
by an inquiry program 
statement // OPTN NOI 
PL/I compiler itself 
program. 



led with the Model 20 
used as mainline pro- 
iry programs. How- 
g as inquiry programs 
tape files. To pro- 
rom being interrupted 

the job-control 
NQ must be used. The 
runs only as mainline 



Note: The inquiry input and output area 
of the Monitor and the inquiry record are 
not used by PL/I. Input/output on the IBM 
2152 Printer-Keyboard is through normal 
PL/I file processing. 



US E_0F_THE_IBM_2152_PRINTER- KEYBOARD 

Even though all types of file processing 
available with Model 20 PL/I are supported 
by the IBM 2152 Printer-Keyboard, its main 
purpose is the transfer of messages 
between the program and the operator. 

Since messages are mostly of variable 
length, undefined record format has been 
introduced as the only record format for 
the printer-keyboard. If, however, with 
RECORD transmission, an input record does 
not have the same length as the variable 
into which it is read, the RECORD condi- 
tion is raised. 
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The transfer of messages between the 
program and the operator requires that the 
input and the output file are synchronized 
in such a way that the listing on the key- 
board reflects the sequence in which the 
input and output statements have been 
executed. This synchronization is guaran- 
teed if both files have the option 
BUFFERS (1) in the ENVIRONMENT attribute. 
Otherwise, read requests are issued to the 
printer-keyboard before PL/I GET or READ 
statements are executed. 

The following set of additional rules 
applies to files that are read from or 
written on the printer-keyboard: 

1. For STREAM files, the actual length of 
an output record is defined as 
follows: 

• By an explicit occurrence of a SKIP 
option or format item. 

• By an implicit occurrence of SKIP ( 
1) when the maximum record length 
(declared in the U option of the 
ENVIRONMENT attribute) is being 
exceeded. 

• When a GET or READ statement for a 
printer-keyboard file is executed, 
any output produced by previous PUT 
statements that has not been writ- 
ten out, is printed before the key- 
board is unlocked, that is, before 
the input data can be typed in. 

2. SKIP (0) is not supported for printer- 
keyboard files since over-printing is 
not possible. 

3. CTLASA is meaningless for printer- 
keyboard files. 



4. Since pages are not defined on a 

printer-keyboard, the PRINT attribute 
and the PAGESIZE option are ignored 
for printer-keyboard files. The PAGE 
option or format item is treated as 
SKIP(3). The ENDPAGE condition cannot 
be raised. 



Linking PL/I Programs with Assembler Procedures 

In order to increase the capability and/or 
efficiency of your programs, you may com- 
bine programs written in PL/I with proce- 
dures written in Assembler language (in 
the following referred to as Assembler 
procedures) . 



For a PL/I program consisting of sever- 
al procedures, the compiler automatically 
generates the code required for the acti- 
vation and de-activation of the proce- 
dures. When writing Assembler procedures 
that are to be linked with PL/I proce- 
dures, however, you must write the code 
required for the activation and de- 
activation of other procedures yourself. 
The code you must supply corresponds 
exactly to the code generated automatical- 
ly by the compiler for PL/I procedures. 



Following, now, is a description of the 
code that will be of interest for you when 
writing Assembler procedures that are to 
be included in PL/I programs. 

Figure 70 shows the code generated by 
the compiler for each procedure of a PL/I 
program. 



entry-name DC X'FFFF 1 



ONBLOCK 



„\ 



DC X' FFFF' 
DC X'FFFF' 
DC H'0« 
DC Y (ONBLOCK) 



DC X'FFOO' 
DC X' .. . ' 
DC C ' . . . ' 



DC X'7FFF' 



(for n addresses of parameters) 



(for address of function value) 
(end of parameter list) 
(address of On-Block) 

(code generated for the statements of the procedure) 



(length of dynamic-storage area) 
(entry-name, six bytes in length) 

(On-Block entries) 

(end of On-Block) 



Figure 70. Code Generated by the Compiler for Each Procedure of a PL/I Program 
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DC X'4D80' 
DC Y{PL1SCA) 
DC Y (, ..) 
DC Y (.,.)* ') 



: \ 

DC Y (..,.)* ; 

DC Y(...) * 

DC H'O' 



(BAS instruction to invoke the Library Call Routine) 
(address of called procedure) 

(addresses of arguments) 



(address of function value) 
(end of argument list) 



i 
v . ^ 

l*All addresses marked by an asterisk may also consist of a register and a displacement.! 

i j 



Figure 71. Code for a CALL Invoking Another Procedure 



Call 

Whenever, during program execution, one 
procedure calls another procedure, the 
Call routine PL1SCA, a member of the PL/I 
library, is entered,. 

This routine 

• provides the Dynamic Storage Area 
(DSA) i 

• stores the register contents and the 
return address of the calling procedure 
in the DSA 

• provides On-Block 1 information 

• transmits the addresses of arguments 

• causes the branch to the called 
procedure 

1 DSA and On-Block are discussed below in 
this section. 

To include in a PL/I program an Assemb- 
ler procedure that calls a PL/I procedure, 
you must yourself supply the code needed 
for the call. 

The code generated automatically for 
the CALL statement is shown in Figure 71. 

E.£2Ji!!LeQ.ts_and_Para meters 

Arguments are passed to the invoking pro- 
cedure by transferring the addresses of 
the arguments to the invoked procedure. 
In the invoked procedure, the arguments 
are referred to by names called 
parameters. 

During transmission of the addresses, a 
test is performed to determine whether the 
addresses are absolute. If they are not, 
they are converted to absolute addresses. 
Also passed to the invoked procedure is 
the address of a function value that might 
be returned by the invoked procedure. 



This address is specified even if no func- 
tion value is returned. 

Note: The number of arguments of a call 
must be identical to the number of parame- 
ters in the called procedure. 

On-Block 

The On-Block holds all information needed 
about ON'Conditions during activation of a 
procedure. Its address is contained in 
the code for the called procedure. 

For Assembler procedures, the On-Block 
must only contain the following: 

DC X'FF00« 

DC X'length of DSA' 

DC C 'entry-name ' (6 bytes) 

DC X'7FFF' 

Note: The On-Block must begin on a half- 
word boundary. 

Dynamic_Storag,e_Area 

Since a procedure needs working storage 
for its own purposes, storage is dynamic- 
ally allocated for it during activation by 
the Call routine; This dynamically allo- 
cated storage is freed again by the Return 
routine PL1SCAR, a member of the PL/I 
library, upon deactivation of the 
procedure. 

The DSA is used to save register con- 
tents and the return address of the cal- 
ling procedure and to hold any intermedi- 
ate results used only by the called proce- 
dure. Its length is given in the On-Block 
of a j-rocedure. It must have a length of 
at least 24 bytes. These 24 bytes are 
needed for internal use. To use addition- 
al dynamic storage for an Assembler proce- 
dure, you can increase the length of the 
DSA up to 4096 bytes. You can address the 
DSA via register 13. This register is set 
by the Call routine and reset by the 
Return routine. 
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Note: If you use register 13 for other 
purposes in an Assembler procedure, you 
must save it and restore it later. You 
must not use register 13 for other pur- 
poses during activation of another PL/I 
procedure. 



2. If a PL/I procedure is called from 
within an Assembler procedure, the 
name of the PL/I procedure must be 
declared with the EXTRN statement in 
the Assembler procedure. Names 
declared with the EXTRN statement must 
appear only within DC Y (. . . ) 
constants. 



Return 

When a procedure returns control to the 
calling procedure, this is done via the 
Return routine PL1SCAR which is entered. 
This routine 

• restores the register contents 

• frees the Dynamic Storage Area 

• passes control back to the calling 
procedure 



The code generated for a return is a 
branch to PL1SCAR and looks as follows: 

DC X'47F0« 
DC Y(PL1SCAR) 

For an Assembler procedure, you have to 
supply this return code yourself. 

Notes: 

1. When combining PL/I procedures with 
Assembler procedures, the main proce- 
dure must always be written in PL/I; 
it must not be coded in Assembler. 

2. To combine Assembler procedures with 
PL/I procedures, include the already 
assembled procedures in your PL/I 
source program or precompiled object 
program. The assembled object deck(s) 
(as well as any precompiled PL/I 
object deck (s) , must be headed by a + 
COPY card. (For more information 
about the COPY card, refer to the sec- 
tion entitled The_Comp_iler) . 

lul§§_l:S^_Sg§iEi2tions_for_ Writing 
Assembler_Procedures 

When writing Assembler procedures to be 
combined with PL/I procedures, you must 
observe the following rules and 
restrictions: 



Rules 
1 



An Assembler procedure may have more 
than one entry point. All entry names 
of an Assembler procedure have to be 
declared with the ENTRY (or START or 
CSECT) statement. 



Restrict io ns : 

1. An Assembler procedure used in combi- 
nation with PL/I procedures must not 
contain any Monitor or IOCS macro 
instructions. 

2. It must not contain any CIO, XIO, or 
TIOB instructions. 

3. It must not change the communication 
region and must not contain an XFR 
Assembler instruction. 

4. The Assembler procedure must be relo- 
catable; that is, it must not contain 
the NOESD or NORLD options in the 
AOPTN control statement, nor contain 
the Linkage-Editor ENTRY statement. 

5. When linking PL/I with Assembler pro- 
cedures, the main procedure must 
always be written in PL/I. 



Progr am ming_Ex ample 

In order to illustrate the use of an 
Assembler procedure in combination with 
PL/I procedures, a small programming 
example consisting of three procedures is 
given in Figure 72. 



The problem dealt with in the program 
is to determine whether the current year 
is a leap year or not. 



The main procedure ALPHA is written in 
PL/I. ALPHA calls the procedure LEAP, 
which returns, as a function value, the 
letter Y or N, depending on whether the 
current year is a leap year (Y) or not 
(N) . The returned letter is displayed in 
the E-S-T-R registers on the pannel. How- 
ever, before LEAP can return its function 
value, it calls the function YEAR which 
returns to LEAP a two-digit number speci- 
fying the current year. The procedure 
YEAR is also written in PL/I, whereas the 
procedure LEAP is written in PL/I as well 
as in Assembler language. The two proce- 
dures are equivalent. 

The Assembler and the PL/I coding for 
the procedure LEAP are shown in parallel 
in Figure 72 for comparison. 
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ALPHA: PROCEDURE OPTIONS (MAIN) ; 

DCL LEAP RETURNS CHAR(1), A CHAR(1) 
DISPLAY (LEAP) REPLY (A) ; END; 



LEAP: PROCEDURE CHAR (1 ) ; 


ILEAP 


START 







DCL V,W FIXED (2,0) , 




BASR 


8,0 




YEAR RETURNS PIC'99' 


• J 


EXTRN 


PL1SCA 


CALL ROUTINE I 






EXTRN 


PL1SCAR 


RETURN ROUTINE | 






EXTRN 


YEAR 


PL/I PROCEDURE TO BE | 
CALLED | 




|RA 


EQQ 


9 


WORKING REGISTER J 




|L0 


DC 
DC 


X'FFFF 1 
X« 0000' 


HALFWORD FOR ADDRESS OF | 
FUNCTION VALUE l 






DC 


J (ONBLOCK) 


POINTER TO ONBLOCK | 












V=YEAR; 




DC 


X' 4D80' 


BAS INSTRUCTION TO | 






DC 


I (PL1SCA) 


CALL PROC YEAR l 






DC 


Y (YEAR) 


ADDRESS OF CALLED | 
PROCEDURE YEAR I 






DC 


Y(A) 


ADDR OF FUNCTION VALUE | 






DC 


X'0000' 








PACK 


B(3) ,A(2) 


PACK VALUE RETURNED FROM | 
YEAR | 


W=V/4; 




DP 


B(3) ,V(1) 


DIVIDE IT BY 4 | 


IF V=W*4 THEN 




CLI 


B + 2,X'0C 


TEST REST FOR | 




X— — 


BNE 


L1 


IF YES, LEAP-YEAR | 


RETURN ('Y') ; 


T 


LH 


RA,L0 


ELSE, NO LEAP-YEAR J 


ELSE 




MVI 
DC 


(RA) ,C Y' 
X '47F0' 


RETURN C«Y» FOR RESULT | 




J- - 


DC 


Y(PL1SCAR) 


BRANCH TO RETURN ROUTINE | 


RETURN ('N') 5 


T 

| LI 


LH 


RA,L0 


LOAD ADDR OF RETURN VALUE | 






MVI 


(RA) C N' 


RETURN C'N' FOR RESULT | 






DC 


X'47F0' 








DC 


Y(PL1SCAR) 


BRANCH TO RETURN ROUTINE | 




J V 


DC 


X 'KC 


CONSTANT 4 | 




| A 


DS 


CL2 


VALUE RETURNED FROM YEAR | 




IB 
- 4- - 


DS 


CL3 


WORKING STORAGE I 


END; 


IONBLOCK 


DC 


X'FFOO' 


BEGIN OF ONBLOCK | 






DC 


H'24' 


LENGTH OF DSA | 






DC 


C'LEAPbb' 


PROCEDURE NAME | 






DC 


X'7FFF' 


END OF ONBLOCK I 




JL _ 


END 






YEAR: PROCEDURE CHAR (2) ; 










DCL DATE BUILTIN; 










RETURN (DATE) ; 










END; 











Figure 72. Programming Example Illustrating the Use of an Assembler Procedure in Combi- 
nation With PL/I Procedures 



Sterling Currency Processing Routines 



Model 20 PL/I does not support Sterling. 
However, the Model 20 Sterling Currency 
Processing Routines (260-LM-015) can be 
linked to PL/I object programs. The lin- 
kage of these routines to PL/I programs 



must be done like the linkage of Assembler 
procedures. 



For detailed information, refer to the 
pu bli cation IBM_Sy_stem^360_Model_2 x 
St erling_Currency._Processing_Rou tines, 
Form C26-3605. 
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The DYNDUMP Routine 

Model 20 PL/I provides you with a dynamic 
dump facility that can be called at execu- 
tion time with the statement 

CALL DYNDUMP 

(variable-name [, variable- name] .. , .) ; 

This statement may be used to display the 
items listed in the variable list in hexa- 
decimal notation. The variable list may 
contain up to 12 variables and include 
label and pointer variables. 

The following example shows the use of 
the DYNDUMP routine: 



60. Each data item requires two bytes as 
declared. Thus, the total storage 
requirement of the array is 2 * 60 = 120 
bytes. 

The individual items of an array are 
stored in row-major order. For the above 
example, this means that the items are 
stored as follows: 

A(1,1,D 
A(1,1,2) 

A (5,4,2) 
A(5,4,3) 



DCL A FIXED(5,2) , (B (20) ,C)CHAR (2) ; 



CALL DYNDUMP (A,B,C) ; 

The three items A, B, and C are displayed: 
A as three bytes (five hexadecimal digits 
+ sign), B as 40 bytes (80 hexadecimal 
digits) , and C as two bytes (four hexade- 
cimal digits) . 

This feature requires a minimum of main 
storage. 



Data Storage Mapping 

This section discusses the location of a 
data item in storage in relation to other 
data items. 

Alignment_of_Data_Items_in_Storage 

The Model 20 PL/I compiler aligns all data 
items — except label variables and point- 
er variables — on one-byte boundaries, 
that is, the data items in storage are 
aligned one after the other without any 
storage s^ace being lost between the indi- 
vidual items. Only label variables and 
pointer variables are aligned on two-byte 
boundaries, that is, the first byte of a 
label or pointer variable is in a storage 
position where the address is divisible by 
two. 



STQRAGE_MAPPING_OF_ARRAYS 

The storage requirement of an array is the 
sum of the requirements of the individual 
data items contained in the array, For 
example, the storage requirement of an 
array declared in the statement 

DCL A (5,4,3) CHAR (2) ; 

can be calculated as follows: The number 
of data items in the array is 5 * 4 * 3 = 



STORAGE_HAPPING_OF_STRUCTURES 

With structures, storage is required only 
for data on the elementary structure 
level. Names of major and minor struc- 
tures require no storage space. Elemen- 
tary items are stored in the order in 
which they are declared within the struc- 
ture, the length of each individual item 
being dependent on the attributes declared 
for it. The length of a structure is 
equal to the sum of the lengths of all 
elements contained in it. 

The starting point of a major or minor 
structure is the starting point of its 
first element. 

Note: The pointer and label variables 
cannot be elements of structures. Thus, 
no boundary problems can appear in struc- 
ture mapping. 

Figure 73 illustrates the storage map- 
ping of the structure declared as follows: 



DECLARE 1 


A, 




2 B, 




2 C, 




3 D, 




3 E, 




2 F, 




3 G, 




3 H, 




^ I, 




4 J, 




5 K, 




5 L; 


1 1 T" 


T _ T 1 T 1 


| B | D | 


E | G | I | K | L | 


L X X- 


JL X X X— J 




J 




H 




V 


Q 




A 



Figure 73. Storage Mapfing of Structures 
-- Example 1 
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1 I I 

Variable Type|Stored Internally as|Storage Requirements! Alignment Requirements 



+ ^ 

CHARACTER (n) |1 Byte per Characterl n 



-4- 

JByte 

+ 

| Byte 



PICTURE | 1 Byte for each 

l PICTURE Character 
lexcept for V 



| Number of PICTURE 
l. Characters 



-+■ 

]Byte 



DECIMAL 
FIXED (w,d) 



J 1/2 Byte Per 
IDigit Plus 1/2 
| Byte for Sign 



l w + 1 

| CEIL 

I 2 



+ 

I 

| Byte 



DECIMAL 
FLOAT (w) 
w < 7 



IShort Floating Point| 
I I 



DECIMAL 
FLOAT (n) 
6 < w < 16 



| Long Floating Point | 



Byte 



LABEL 



| Half-Word 

-f 

|Half-Word 



POINTER 



Figure 74. Summary of Data Alignment Requirements 



l2Ei§B§ii2B : Only the elementary data 
items B, D, E, G, I, K, and L actually 
occupy storage space. A, the major struc- 
ture name, and the minor structure names 
C, F, H, and J occupy no storage space. 
The range of the structure names is indi- 
cated by the vertical lines in Figure 73. 
For the length of each data item, see 
Figure 74. 



Figure 75 shows storage mapping of a 
fully declared structure. The structure 
has been declared as follows: 

1 A, 

2 B PICTURE '999V99' , 
2 C 

3 D CHAR (3) , 

3 E FIXED (5,2) , 

2 F FLOAT (6) , 

2 G CHAR (1) ; 



<5 bytes><3bytes><3 bytes><5 bytes><1byte> 

i 1 1 1 1 1 

I B | D|E |F | 3 I 

i J J i i j 



Figure 75. Storage Mapping of Structures 
-- Example 2 



Explanation: B, D, E, F, and G are ele- 
mentary data items and occupy actual 
storage space according to the rules 
listed in Figure 74. A and C are struc- 
ture names and require no storage space. 
Their range is indicated by the vertical 
lines in Figure 75. 
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Two Programming Examples 



This section discusses two complete pro- 
gramming examples: 

(1) an example for scientific application, 
and 

(2) an example for commercial application. 



Example for Scientific Application 
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n y« = f (x,y) . 



Both procedures are to be compiled 
together and executed immediately. In 
addition, two decks are to be produced: a 
c°5lE±i§<l object deck from the main proce- 
dure, and an executable object deck from 
the complete program. 

The compiled object deck can -- in 
later applications with other equations — 
be used again as compiler input (headed by 
a + COPY card) together with a PL/I source 
module for any new equation. 

The executable object deck can be used 
to solve the same problem again with dif- 
ferent parameters,. 

The parameters are the starting values 
for xO, yO, the end value xn, and the step 
width h. They are read from a card. The 
result of each step is printed. 

The differential equation used in this 
example is: 

y' = 2 * y * cotan x 

Expl : a ..Qa_±i2IK 

1 The first two job-control statements 
specify that the program is to be com- 
piled, link-edited, and executed imme- 
diately. No other job-control state- 
ments are used; it is assumed that the 
VOL, DLAB, and XTENT statements for 
the two work files W0RK1 and W0RK2 are 
cataloged as permanent labels. 



The COPTN statement is a compiler- 
control statement. The LINK option is 
required so that the program can be 
link-edited and executed immediately. 
The option W0RK2 specifies that two 
work files are to be used to achieve 
faster compilation. The option 30DECK 
indicates that an executable object 
deck is to be provided by the 
compiler. 



3 The PROCESS compiler-control statement 
signals that a PL/I source deck fol- 
lows. The option DECK specifies that 
a compiled object deck is to be pro- 
vided. The option SOURCE specifies 
that the source program is to be 
printed. 

U Comments in the form of headings are 
used in the program to document the 
requirements for the parameters as 
well as to indicate the main program 
steps. 

5 Although the parameters XO, YO, H and 
XN need not be declared explicitly 
since their attributes are the default 
attributes FLOAT DECIMAL (6) , they are 
explicitly declared for documentation 
purposes. 

yPRIHE is explicitly declared as an 
entry point by the RETURNS attribute. 

6 PARAM is the file from which the para- 
meters are read. In this case, it is 
one card read from a 2501 card reader 
assigned to SYSIPT. PARftM is by 
default a STREAM file. RESULT is the 
output file, which is printed on a 
2203 printer assigned to SYSLST. It 
is a STREAM file, which is implied by 
the attribute PRINT. 

7 As the first action, the parameters 
are read in. 

8 Then, a heading is printed. 

9 Following the heading, one line is 
left blank. 

10 The step length divided by two is used 
within the loop that follows. To 
avoid repeated computation of this 
value (HH) , it is computed once out- 
side the loop. This saves execution 
time. 
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Figure 76. Programming Example for Scientific Application 
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11 The PUT statement that edits the 
values of the individual integration 
steps precedes the integration loop so 
that also the initial values of xO and 
yO are printed. Since the record 
length (28) specified in the ENVIRON- 
MENT attribute for the PRINT file is 
equal to the length of the two fields 
for xO and yO (12 and 15) plus one 
character for printer-carriage con- 
trol, a new line is printed each time 
the PUT statement is encountered, even 
though no SKIP format item is 
specified. 

12 A test for completion is made. > = is 
used instead of =, since round-off 
errors in floating-point arithmetic 
may prevent an egual compare. 

13 The formulas used for the integration 
from the point (xi,yi) to 

(x = x + h) are: 

i+1 i 
k = f (x , y ) * h 
i i 



1 



k = f (x + h/2, y + 
2 i i 



k /2) * h 
2 



k = f (x + h/2, y + k /2) 
3 i i 2 



* h 



k =f(x +h,y +k) 
4 i i 3 



i+1 



= y + 
i 



(k + 2k + 
1 2 



* h 



2k + k ) /6 

3 4 



Since the values of xi,yi are no long- 
er needed when xi+1,yi+1 have been 
computed, the same variables used for 
the old values are used for the new 
values, i.e., there is no need to 
declare x and y as arrays. Since the 
argument xi + h/2 is used twice, name- 
ly in the computation of k2 and k3, xi 
is incremented once by h/2 before the 
computation of k2 and k3 f thus avoid- 
ing duplicate computation of this ex- 
pression. XO itself can be replaced 
by XO + HH since the old value of XO is 
no longer needed. 

14 K2+K2 has been chosen instead of 2 * 
K2, since addition is normally faster 
than multiplication. 

15 When the END statement of the main 
procedure is executed, all files are 
automatically closed and control is 
returned to the Monitor, 

16 The RETURN statement is the only 
executable statement in the procedure 
YPRIME. Since YPRIME, X, and Y have 
default attributes, no DECLARE state- 



ment and no RETURNS attribute are 
required. YPRIME uses the TAN built- 
in function. Note that tan (x) = 
1/cotan (x) . 



Example for Commercial Application 

The programming example shown in Figure 78 
is a simplified inventory problem. Dif- 
ferent departments of a factory order dif- 
ferent quantities of different parts 
(screws, nuts, nails, etc.) from a centr- 
al store. If orders cannot be fulfilled 
because there are not enough parts avail- 
able from the store or if, after fulfil- 
ling the order, less than the required 
minimum number of parts remains in the 
store, a purchase order is issued 
automatically. 

The main file is an inventory file, 
called MASTER, residing on disk. It con- 
tains all information about the individual 
parts in the store, like part-number, num- 
ber of parts currently in store, price, 
minimum number to be held in store, etc. 
This file may very well also be used by 
other inventory programs. 

The orders coming in from the factory 
departments are on punched cards (DETAIL 
file) . They are not sorted in ascending 
sequence by part number. Therefore, the 
MASTER file is accessed as an INDEXED 
DIRECT file, since the DETAIL records com- 
ing in in random order require random pro- 
cessing of the MASTER inventory file. 
(For rather large detail files it may be 
advisable to sort the detail file with the 
DPS Sort/Merge program and then process 
the sorted output against a SEQUENTIAL 
UPDATE INDEXED or CONSECUTIVE inventory 
file. However, this case is not handled 
in the sample program) . 

Records for parts that are no longer 
held in store are marked by a character 
code and deleted from the MASTER file when 
it is eventually reorganized. 

The program produces three output 
files: (1) a transaction report file 
(REPORT) , which is initially written on 
tape and is used later to produce a 
printed output report of the orders ful- 
filled, (2) a card file (REDRDR) in the 
form of reorders to refill the store, and 
(3) an exception file (EXCEPT) , which is 
printed immediately and contains detail 
records for which no MASTER 
records exist or for which the MASTER 
records have been marked for deletion, as 
well as any orders that cannot be 
fulfilled. 

Since the printer is used for printing 
the EXCEPT file, the REPORT file is stored 
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intermediately on magnetic tape. The 
REPORT file might be used by other pro- 
grams for the printing of orders or the 
computation of product costs, etc, There- 
fore, the REPORT file is labeled to make 
it easily identifiable. Figure 77 shows 
the configuration used for this example. 



DETAIL 
File 



SYSIPT 



Cylinder 

Index of 

MASTER 

File 



Processing 





SYS004 



REORDR 
File 




SYSOPT 



SYS007 



SYSLST 



Figure 77. Configuration Used for Inven- 
tory Problem 



Ixfila fiat ion: 

Note that the numbers to the left of the 

programming example are used for reference 

purposes only. They are not part of the 
coding. 



1 The first job-control statement speci- 
fies that the program is to be com- 
piled, link-edited, and executed 
immediately. 

2 NOINQ in the OPTN control statement 
specifies that the execution of this 
program must not be interrupted by any 
inquiry program,. TES specifies that 
the tape error statistics are to be 
printed after program execution. 
NOINQ is used to ensure that the posi- 
tion of the tape and card file is not 
changed by an inquiry program. 

3 When TES is specified, LOG must also 
be specified. 

4 The 2311 disk drive, which holds the 
prime data extent of the MASTER file, 
is assigned the symbolic-device 
address SYS004 and the unit number 02. 



5 The index area of the MASTER file is 
on the system disk pack with the sym- 
bolic device address SYS000. 



10 



11 



MASTER INVENT 
identificatio 
columns 55 th 
(always coded 
al number whi 
file serial n 
ment (the fir 
the cylinder 
file. The nu 
card are the 
(0000) , the c 
2nd, 1970) , a 



ORY FILE is the file 
n. The numbers in 
rough 61 are the format 

as 1) and the file seri- 
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st in this example) for 
index area of the MASTER 
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volume sequence number 
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nd the expiration date. 



While the prime data extent is on an 
extra pack with the volume label 
INV002, the index area is on another 
pack, the system disk pack, to mini- 
mize disk-arm movement time when read- 
ing the cylinder index. 

The tape used for intermediate storage 
of the REPORT file is a 9-track mag- 
netic tape with a density of 1600 
bytes per inch. 
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The COPTN compiler-contro 
indicates that two work f 
(W0RK2) , that the source 
be compiled and link-edit 
and that the executable o 
to be produced on the dev 
to SYSOPT (GDDECK) . No 1 
statements have been prov 
two work files. We assum 
labels are permanent. 



1 statement 
iles are used 
program is to 
ed (LINK) , 
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ided for the 
e that these 



The PROCESS compiler-control statement 
indicates that no compiled object deck 
is to be produced on SYSOPT (NODECK, 
specified for documentation purposes; 
it need not have been specified, since 
it is applied by default anyway) . 
ATRO causes the printing of the off- 
sets of labels and variables and the 
length of automatic storage. ATR 
causes the listing of all attributes 
of all variables, entry names, and 
file names. 
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12 Columns 73 to 80 are ignored by the 
compiler. In this case, they are used 
for sequential numbering of the cards, 
so that — in case of accidental 
scattering — they can easily be 
sorted again. 

13 The main procedure of the program, 
that is, the procedure initially 
invoked by the system, must always 
have 

OPTIONS (MAIN) specified in the PROCE- 
DURE statement. 

14 The MASTER file is declared to be an 
INDEXED DIRECT UPDATE file. Note that 
DIRECT and UPDATE are file attributes 
while INDEXED is an option of the 
ENVIRONMENT attribute. Since no new 
records are added to MASTER when it is 
updated, NOWRITE has been specified to 
cause loading of a smaller library 
routine, which saves main storage 
space. 

The record length 41 is the number of 
bytes actually needed to hold all the 
information required for one part. It 
is the length of the structure MAST 
REC. The block size of 533 was chosen 
when the file was built so that a 
minimum of the disk extent (7. bytes 
per 2 sectors) is unused. 

The key of each record has a length of 
eight bytes and starts in the second 
byte of each record (KEYL0C(2)). Two 
extents are used (see XTENT control 
statements) , one for the prime data 
area, and one for the cylinder index. 
One track ter cylinder is reserved for 
overflow records. 

VERIFY is specified to ensure error 
detection when the updated records are 
rewritten onto disk. 

15 The DETAIL file contains the orders 
coming in from the different factory 
departments. Only the first 25 bytes 
of each card are used. 

16 Following are the structure declara- 
tions for the MASTER record, the 
DETAIL record, the REORDR record, and 
the REPORT record (TRANSACT). In 
order to have the individual data 
items of the TRANSACT record separated 



by blanks when it is finally printed, 
"fillers" initialized to blanks, have 
been introduced in the record. 



17 An invalid part number specified in 
the records of the file DETAIL will 
raise the KEY condition when the file 
MASTER .is read. The raising of the 
KEY condition will result in a transf- 
er of control to an error-handling 
routine. Note that, because internal 
names may be up to 31 characters in 
length, labels and variables may have 
explanatory names, like the labels END 
0F_J0B and N0_REC0RD_F0UND. 

18 The part number specified in each 
record of the file DETAIL is used to 
select the associated record from the 

file MASTER. 

19 Even though building of the 
transaction-report record (TRANSACT) 
starts later — with card STO0150 — 
0LD_SIZE and 0LD_VALUE are assigned 
values here, since the appropriate 
variables are updated before TRANSACT 
is built. 

20 The auxiliary variable WANTED has been 
introduced to minimize the number of 
conversions, saving space and execu- 
tion time. 

21 In the second format item (A (15)), a 
length of 15 has been specified to add 
three blank characters to the right of 
the output field. This specification 
is equivalent to the specification 
(A,X(3)). 

22 The size of the purchase order 

(REORDER REC. SIZE) has been determined 
in either of two ways before: If the 
department order exceeds the number of 
pieces in store, the order size is 
computed with the formula shown card 
ST00121, otherwise the standard order 
size is taken (see card STO0126) . 

23 This statement is preceded by two 
label prefixes. 

24 This is not an error message but mere- 
ly a comment that the list is 
complete. 
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Figure 78. Programming Example for Commercial Application, Part 1 of 3 
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Appendix A. Definition of Terms 



4bso 1 u t e_addr ess : (1) an address that is 
permanently assigned by the machine to a 
storage location. (2) a pattern of char- 
acters that identifies a unigue storage 
location without further modification. 

§££®§s_method: any of the data management 
techniques available to the user for 
transferring data between main storage and 
an input/output device. 

action_specification: in an ON statement, 
the ON-unit or single keyword SYSTEM, 
either of which specifies the action to be 
taken whenever an interrupt results from 
the raising of the named condition. 

§£tivation: (1) initiation of execution 
of a procedure. A procedure is activated 
when it is invoked at its entry point; (2) 
opening of a file to access it. 

active: the state in which a procedure or 
file is said to be after activation and 
before termination; 

§££ual_device_address: address specified 
in the ASSGN job-control statement. 
Includes attachment point, unit, and I/O 
device type. 

§4£i£iye_attributes: file attributes for 
which there are no defaults and which, if 
required, must always be stated 
explicitly; 

address: (1) a specific storage location 
at which a data item can be stored, (2) 
I/O device address. 

alloc^i® ^.-Variable : a variable with which 
storage has been associated. 

allocation: the association of storage 
with a variable. 

al^habetiC-Cha ra c te r : any of the charac- 
ters A through Z and the alphabetic exten- 
ders #, $, and 3. 

§i2]i§i§li£_£h§£§cter: an alphabetic char- 
acter or a digit. 

§.l£§EQ§£iye_attributes: file attributes 
that may be chosen from groups of two or 
more alternatives. If none is specified, 
a default is assumed. 

§l£§EIJl£iy.§_3riye: when two drives are 
given for one multi-volume file, the first 
volume is mounted onto the primary drive 
and the second volume onto the alternative 



drive. If no alternative drive is given, 
all reels .or packs must be read or written 
on the primary drive. 



ambiguous_reference: name with insuffi- 
cient gualif ication to make the name 
unique. 

argument: an expression, a constant, or 
variable passed to an invoked procedure as 
part of the procedure or function 
reference. 

arithmetic_data: data that has the chara- 
cteristics of base, scale, and precision. 
It includes coded arithmetic data and num- 
eric character data. 

§.£.!£_ hme t ic_op_e ra t or s : any of the prefix 
operators, + and -, or the infix opera- 
tors, +, -, *, /, and **. 

i-EE^Y 1 a named, ordered collection of 
data elements, all of which have identical 
attributes. An array has dimensions, and 
elements that are identified by 
subscripts. 

Assembler: a proyram which prepares an 
object program by producing absolute or 
relocatable machine code from a source 
program of statements containing symbolic 
operation codes and symbolic operands. 

attribute: a descriptive property asso- 
ciated with a name or expression to 
describe a characteristic of a data item 
or a file that the name may represent. 

automatic_storage: storage that is allo- 
cated at the activation of a procedure and 
released at the termination of that 
procedure. 

base: the number system in terms of which 
a written value is represented. Examples 
are the decimal base (ten) , the binary 
base (two) , and the hexadecimal base (six- 
teen) . For Model 20 PL/I, the base is 
decimal. 

based_variable: a variable declared to 
have the BASED (pointer-variable) attri- 
bute specification. The pointer variable 
associates the description with an alloca- 
tion of storage. 

£ased_storaqe: storage that is allocated 
for based variables. This allocation is 
dependent upon the manipulation of a 
pointer variable. 



214 IBM System/360 Model 20 DPS PL/I 



batch^com^ilation: the processing of more 
than one procedure by the compiler in one 
job. 



batched- job_grgcessing: a technique that 
permits multiple job definitions to be 
grouped (stacked) for presentation to the 
computing system, which automatically 
recognizes the jobs, and executes them one 
after the other. 



bit: The smallest unit of information in 
System/360. It can have either of the two 
values: zero or one. 



block: distinct physical grouping of data 
items within a file. 

blocked_record: logical record grouped 
together with other logical records to 
form a physical record (or block) . 

blocking_f actor : block size divided by 
record size. Applies to fixed-length 
records only. 

bound: the upper or lower limit of an 
array dimension. The lower limit is 
always assumed to be 1, 

buffer: an intermediate main-storage 
area, used in input/output operations, 
into which a record is read during input 
and from which a record is written during 
output. 



bu i It -in_f unction : 
defined functions. 



one of the PL/I- 



byte: The basic unit of information in 
IBM System/360. Every byte consists of 8 
bits, each having a value of zero or one. 
(See Bit) . 

call: the invocation of a procedure by 
means of the CALL statement. 

2___i2_i__ : insertion of an executable 
object program or program segments, or of 
label information as a temporary or per- 
manent entry into the core-image library 
or the label information area, 
respectively. 

2____2_2_ : An 8-bit (1-byte) code that 
can be manipulated in the main storage of 
the central processing unit. 

2____2_ e . r .____ : a collection of 48 or 60 
characters used to write PL/I source 
programs. 

ch ar act er_st ring: a string composed of 
one or more characters from the data char- 
acter set. 



closing_Xa_f ile)_: de-activation of a file 
by means of a CLOSE statement for the 
associated file or by an END or RETURN 
statement of the main procedure of a 
program. 

£°-§ed_ar i t hme t ic_d a t a : internal represen- 
tation of arithmetic data whose charac- 
teristics are given by the base, scale, 
and precision attributes. The types for 
Model 20 PL/I are packed decimal and short 
or long floating point form. 

22ii__i____equence: tfte relative order of 
alphameric characters upon which sorting 
or merging is based. 

comment: a string of characters, used for 
documentation, which is preceded by /* and 
terminated by */. 

comparison_operators: the operators -i<, 

<, <=, t=, =, >=, >, t > . 

22___i__i2_: translation of a PL/I source 
module into an object module (i.e., 
machine language) . 

221Rii2l3._2b.iec t_modul e : the set of 
machine instructions produced by 
compilation. 

compile_time: the time during which a 
source program is translated into an 
object module. 

compiler: a translator that converts a 
PL/I source program into a compiled and/or 
executable object program. 

compiler_control_statement: any one of 
the control statements in the input stream 
that defines the requirements and options 
of a job to the compiler. 

compos it e_op_erat or: operator composed of 
two operator symbols (e.g. #1 =). 

22_£2_____tatament: a statement that con- 
tains other statements. IF and ON are the 
only compound statements. 

concatenation: the operation that con- 
nects two character strings in the order 
indicated, thus forming one string whose 
length is equal to the sum of the lengths 
of the two strings. It is specified by 
the operator | j . 

condition_name: a language keyword that 
represents an exceptional condition that 
might arise during execution of a program. 

222_i_i2__E_2_i_" a parenthesized list of 
one or more condition names prefixed to a 
procedure statement by a colon and preced- 
ing the entry name. It determines whether 
or not the program is to be interrupted if 
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one of the specified conditions occurs 
within the scope of the prefix. Condition 
names within the list are separated by 
commas. 



data: repressntation of information in 
the form of digits and characters that 
have certain characteristics called 
attributes. 



£2ns_e_c:utive_f ile_ organization: organiza- 
tion of records on the basis of their suc- 
cessive physical positions. Records of a 
consecutive file can be accessed only 
sequentially. 



£2B§£ant: (1) an arithmetic or character 
string data item that does not have a 
name, (2) a statement label. 

co n t ex t u a 1 _d eel a r a t i on : the appearance of 
an identifier to the left of an assignment 
symbol or in the data list of a GET state- 
ment, or as a built-in function name 
(except DATE) . 

control^f ormat_item: description of page 
and spacing operations. 

control_programs: a set of system pro- 
grams that control the execution of the 
compiler and of user-programs. They are 
the Monitor, the Job Control program, and 
the Initial Program Loader. 

22Qt£2l_statement : any of the statements 
in the input stream that define the 
reguirements of the job, its options, or 
control its actions. 

con trol_ variable: variable used to con- 
trol the iterative execution of a 

DO-group. 

c2HZ§£§i2il : tne transformation of a value 
from one representation to another. 

Core-Image_Library: a disk area contain- 
ing the Job Control program, other IBM- 
supplied programs (except the Monitor and 
the IPL) , and user's problem programs. 
Permits retrieval of programs and^or seg- 
ments by the Monitor.. 

C2£®zll§.gs_Library__Maintenance_Program 
JCMAINT}.: a DPS Service program. Updates 
the core-image library and directory. Is 
used to add and/or delete program 
segments. 

cylinder: a group of ten vertically 
aligned tracks on a 1316 disk pack. 

cylinder_index: table containing the 
identification and the highest key asso- 
ciated with each cylinder occupied by an 
INDEXED file. 

cylinder_overf low_area : overflow area 
designated for each cylinder of the prime 
data area of an INDEXED file. 



d§ta_character_set: all of those charac- 
ters whose bit configuration is recognized 
by the computer in use. 

data_file: a collection of related 
records organized in a specific manner. 
For example, a payroll file (one record 
for each employee, showing his rate of 
pay, deductions, etc.) or an inventory 
file (one record for each inventory item, 
showing the cost, selling price, number in 
stock, etc. ) . 

data_f ormat_item: description of data in 
the stream that specifies whether the data 
items are characters or arithmetic values 
in character form. 

data_item: a single unit of data; it is 
synonymous with "element". 

data_list: a list of expressions used in 
a STREAM input/output specification that 
represent storage areas to which data 
items are to be assigned during input, and 
from which data items are to be written, 
daring output. (On input, the list may 
contain only variables) . 

3a ta__sp_ec if ica ti on : the portion of an 
edit-directed data transmission statement 
that specifies the mode of transmission 
(EDIT) and includes the data list and the 
format list. 

data_transmission: the transfer of data 
from an external storage medium to main 
storage and vice versa. 

deblocking (of .records}.: segregating 

physical records into their logical parts. 
Deblocking is done automatically by the 
system so that a program deals only with 
logical records. 

decimal: the number system based on the 
value 10. 

decim al_f ix ed-point_d a t a_i t em : data item 
consisting of one or more decimal digits 
and an optional decimal point. If no dec- 
imal point appears, the point is assumed 
to be immediately to the right of the 
rightmost digit. 

decimal_floating-point_data_item: decimal 
number followed by an integer exponent. 
The exponent specifies the assumed posi- 
tion of the decimal point, relative to the 
position in which it actually appears. 
The data item is written as one or more 
digits, the mantissa, followed by the 
letter E, followed by the exponent. 
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declaration: the association of attri- 
butes with an identifier explicitly, con- 
textually, or implicitly. 



^limmy_a rg.ume n t : a compiler-assigned vari- 
able for an argument that has no 
programmer-assigned name. 



default: the alternative assumed when an 
identifier has not been declared to have 
one of two or more alternative attributes. 



dump: (1) print-out of total main storage 
or of parts of main storage, (2) print-out 
of disk areas. 



de f i ne d_i t e m : 
attribute. 



item having the DEFINED 



delimiter: any valid special character or 
combination of special characters used to 
separate identifiers and constants, or 
statements from one another. 

device_address: see sy_mbolic_device 
address and act ual_device_ad dress. 

deyice^in^ependence: the ability to regu- 
est input/output operations without regard 
to the physical characteristics of the 
input/output devices. 



digit: 
9. 



the ten decimal digits through 



dimensioning: the number of bound speci- 
fications associated with an array, It 
cannot be greater than three. 

direct_access: random processing of the 
logical records of a file by use of a key, 

disabled (c_o nd i t i o n)_ : the state in which 

the occurrence of a particular condition 
will not result in a program interrupt. 

disk- resident_sy stem: contains the Mon- 
itor, the disk-resident portion of the 
IPL, and the Job Control program. May 
contain any IBM-supplied and/or user- 
written programs and/or macro definitions 
as well as the relocatable area. 



dinamic_storage: storage that is allo- 
cated when execution of a procedure begins 
and that is freed when execution of a pro- 
cedure is terminated. See automatic 
storage. 



EBCDIC: (Extended Binary Coded Decimal 
Interchange Code) a specific set of eight- 
bit codes standard throughout System/360. 

edi t- direct ed_tr a nsmission : STREAM trans- 
mission; both a data list and a format 
list are specified. 

§di t ing_ch ar ac t er : a picture character in 
a numeric-picture specification that 
causes the specified picture character to 
appear in the character-string value of 
the numeric-picture specification. 

element: a single data item as opposed to 
a collection of data items, such as a 
structure or an array. (Sometimes called 
a "scalar item") . 

element_variable: a variable that can 
represent only a single value. 

enabled [c o nd i ti on). : that state in which 

the occurrence of a particular condition 
will result in a program interrupt. 

entry_name: a label of a PROCEDURE 
statement. 



DO-group: a seguence of statements headed 
by a DO statement and closed by its corre- 
sponding END statement. 

DES-SoHtrol^Programs: a collective term 
used to refer to the Initial Program Load- 
er, the Monitor program, and the Job Con- 
trol program, 

DPS_Linkage_Editor: a system service pro- 
gram. Relocates programs or phases and 
links separately assembled programs or 
phases. Cannot be used for Model 20 PL/I 
programs. 

dri|ting_picture_character: multipally 
specified picture character ($, S, or -) 
that causes leading zeros to be suppressed 
and a % symbol, a sign, or a blank to 
appear in the rightmost position of the 
suppressed field of the character-string 
value of an arithmetic data item. 



§.fi;trx_Bcd nt : that point in a procedure at 
which it may be invoked by reference to 
the entry name. (For Model 20 PL/I only 
the PROCEDURE statement). 

epilogue: those processes which occur at 
the termination of a procedure. 

§§£ajb 1 isji ed_a c ti on : any action specified 
to take place when an enabled condition 
arises and causes an interrupt. 

exceptiona l_c ondi tion : an occurrence, 
which can cause a program interrupt, or an 
unexpected situation, such as an overflow 
error, or an occurrence of an expected 
situation, such as an end of file, that 
occurs at an unpredictable time. 

§£ecutable_obgect_program: the set of 
machine instructions produced by compila- 
tion and link-editing. 
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execute- loader_f unction: reading of 
executable object program and its 
execution,. 



file_label: label containing information 
applicable to a given data file or portion 
of a data file stored on a particular 
volume. 



explicit_declaration: the assignment of 
attributes to an identifier by means of 
the DECLARE statement, the appearance of 
the identifier as a label, or the 
appearance of the identifier in a paramet- 
er list. 

§ x .Eiic;it_f ile_opening: opening of a file 
by means of an OPEN statement. RECORD 
files always have to be explicitly opened. 

expon en t __£o f _f loa t i ng_- p_oi n t _c o n s t an t )_ : a 
decimal integer constant specifying the 
power to which the base of the floating- 
point number is to be raised. 

§xpression: the representation of a 
value; examples are variables and con- 
stants appearing alone or in combination 
with operators, and function references. 

§xtent: area of a disk file specified by 

an upper limit and a lower limit; and 

reserved for or occupied by a particular 
file. 

external_declaration: an explicit or 
implicit declaration of the EXTERNAL 
attribute for an identifier. Such an 
identifier is known in all other proce- 
dures for_which^such_a_declaration_exists. 

externa l_na me: an identifier which has 
the EXTERNAL~attribute. 

external_stora3e_medium: the medium on 
which data may be stored; for example, 
cards, magnetic tape, or disk. 

external symbol : a control section name, 

entry point name, or external reference; a 
symbol contained in the external symbol 
dictionary. 

f act or ing_Jof_at tribute s]_ : enclosing of 
names having the same attributes in paren 
theses. Following the parenthesized list 
is the set of attributes that apply, in 
order to eliminate repeated specification 
of the same attributes for more than one 
name. 

field (in_the_data_stream)_: that portion 

of the data stream whose width, in number 
of characters, is defined by a single data 
or spacing format item. 

file: the collection of related records 
organized in a specific manner on an 
external storage medium. 

£il.§_declaration: the association of 
attributes with a filename in a program. 



filename: the symbolic reference, within 
a program, to a file. 



fiI§_r§2E3anization: a term used to 
describe the process of writing a new file 
from an indexed file, purging records that 
are tagged for deletion, and merging reco- 
rds in the overflow area in their sequen- 
tial positions in the prime data area. 



£ i£§£lii=£2th_record: a record having the 
same length as all other records with 
which it is logically or physically 
associated. 

£ ix ed -poin t _d a t a_i t e m : see decimal_f ixed- 
E2iD.t _d a t a_i t e m . 

f lo^t ing-poin t_d a ta_i t em : see decimal 
f 1 2 a t i ng-po i n t _d a t a _i t e m . 

format_item: a specification used in 
edit-directed transmission to describe the 
representation of a data item in the 
stream or to control the spacing and the 
format of a printed page. 

f2£!!l§t_list : a list of format items 
required for an edit-directed data 
specification. 

f£S£ii2a§i_^±3i£ : digit to the right of 
the decimal point. 

f^S2£i°fi : a procedure that is invoked by 
the appearance of its entry name in a 
function reference. 

f unction ..reference : the appearance of an 
entry name in an expression, usually in 
conjunction with an argument list. 

2£oup: a DO group; 

halfword: two adjacent bytes where the 
left byte is on a halfword boundary. 

ha If word_b ound a ry : even-numbered position 
in main storage. 

he a d er _1 a b el : file label preceding a 
labeled tape file and defining it. 

he. x .§.3e.c:imal: a character representation 
for a set of four bits. The values 0-15 
are represented by the digits 0-9 and 
the alphabetic characters A - F. 

hiilllz2£d er_dig.it: leftmost digit of a 
decimal number. 
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i^SHtif i§£ : a string of alphameric and 
break characters, not contained in a com- 
ment or constant, preceded and followed by 
a delimiter and whose initial character is 
alphabetic 



iSEli£i£_<I§claration: association of 
attributes with an identifier that is not 
explicitly or contextually declared. 

impl ici t _f il e^gpeni ng; : opening a file by 
means of a GET or PUT statement when no 
previous OPEN statement for that file has 
been executed. Only STREAM files can be 
implicitly opened. 

i&IStive^tEoS^^liE^ 1 a procedure that has 
not been activated or that has been 
terminated. 

iQ.d epen d en t _gv er f 1 o w_a re a : overflow area 
designated to supplement or replace 
cylinder-overflow areas. 

index: see cylinder_index and track 
index. 

ifiL^§xed-f ile_or conization: organization 
of records in a disk file on the basis of 
keys that are associated with each logical 
record. Indexed files may be accessed 
sequentially as well as directly. 

±nf ix_operator: an operator that defines 
an operation between two operands., 

initial_procedure: a procedure whose PRO- 
CEDURE statement has the OPTIONS (MAIN) 
attribute,. Every PL/I program must have 
an initial procedure. It is invoked auto- 
matically as the first step in the execu- 
tion of a program. 

l2i£i&I_&E22£ai_Loader_XIPLi_. A DPS Con- 
trol program. Loads Monitor into main 
storage. Is used to assign physical I/O 
device addresses to symbolic addresses 
SYSRES and SYSRDR. Required for the 
initialization of the disk-resident 
system. 

initial_value: value assigned to a vari- 
able at the time storage is allocated to 
it. 



ifi2^iEy._EE23£ a I9§ : inquiry p 
initiated by pressing the Re 
the printer-keyboard and typ 
name of the program. The ma 
is rolled out on the system 
then the inquiry program is 
processed; after execution i 
the mainline program is roll 
main storage and resumes pro 
Inquiry programs can be exec 
under control of a Monitor t 
inquiry facilities. The exe 



rograms are 
guest key on 
ing in the 
inline program 
disk pack; 
loaded and 
s completed, 
ed back into 
cessing. 
uted only 
hat supports 
cution of 



inquiry programs is not preceded by a Job 
Control run. 

ifipu t^o u tpu t : the transfer of data 
between an external storage medium and 
(main) storage. 

I^O_time: (1) the time interval between 
the instant at which data is called for 
from an external storage device and the 
instant delivery is completed i.e., the 
read time. (2) the time interval between 
the instant at which data is requested to 
be stored and the instant at which storage 
is completed, i.e., the write time. 

iQ§§Efei2fi_£haracter (in_numeric_picture 

§£2 £i£ i2 a £i2E§L • a picture character that 
causes a character to appear in the 
character-string value of a numeric char- 
acter data item. There are three picture 
character in Model 20 PL/I: (.) causing 
a decimal point to be inserted; (,) caus- 
ing a comma to be inserted and (B) causing 
a blank to be inserted. 

integer_digit : digit to the left of the 
decimal point. 

i Ilk e^n §J._n a m e : an identifier that has the 
INTERNAL attribute. 

inter-record_gap: a blank space on mag- 
netic tape that separates physical 
records. 

interrupt: the suspension of normal pro- 
gram activities as the result of the 
occurrence of an enabled condition. 

invoke: to activate a procedure at its 
entry point. 

iHi2li2^_£E2£2S.UEs : a procedure that has 
been activated at its entry point. 

iQ.I2^iH2._EE222^.JiE§. : a procedure contain- 
ing a statement that activates another 
procedure. 

i£sE&.ti2Ii_f §.2^ or : a constant that speci- 
fies (1) the number of consecutive ele- 
ments of an array that are to be initia- 
lized with a given constant; (2) the num- 
ber of times a given format item or list 
of format items is to be used in succes- 
sion in a format list. 

job: a unit of work for the programming 
system that is externally identified by 
one set of job-control statements. 

il2b _C on t r ol_pr ogr am : a DPS Control pro- 
gram. Resides in main storage between 
jobs and provides for automatic job-to-job 
transition. Performs I/O device assign- 
ment. Causes Monitor to load next 
program. 
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i°b-control_statement: any one of the 
control statements read from the device 
assigned to SYSRDR that identifies a job 
or defines its requirements and options. 

key.: see source_key and recorded_key. 

keyword: an identifier that is part of 
the language and which, when used in the 
proper context, has a specific meaning to 
the compiler. 

known: a term that is used to indicate 
the scope of an identifier. For example, 
an identifier is always known in the pro- 
cedure in which it has been declared. 

k^bel: (1) a physical identification 
record on magnetic tape located either 
preceding or following a data file, or 
both. If a data file extends beyond a 
single reel of tape, a label can be placed 
preceding and following the data on each 
reel; (2) a physical identification record 
on disk which identifies the volume or 
file, (3) statement label. 

iil2el_.eonsta.nt: see §£ a tement_iabei. 

Label„Informatign_Area [LIA__: an area on 

the system disk pack into which each disk 
file label information, as contained in 
the VOL, DLAB, and XTENT statements, is 
placed by the Job Control program. This 
information is used by the label proces- 
sing routines. 

l a 2el_pref ix: an unparenthesized identi- 
fier prefixed to a statement by a colon. 

I a £3uage_ translator: a general term for 
any assembler, compiler, or other routine 
that accepts statements in one language 
and produces equivalent statements in 
another language. 

Leadin_g_zeros: zeros that have no signi- 
ficance in the value of an arithmetic num- 
ber; all zeros to the left of the first 
significant digit (1 through 9) of a 
number. 

l§yel_number : an unsigned decimal integer 
constant specifying the hierachy of a name 
in a structure. It appears to the left of 
the name and is separated from it by a 
blank. 

library-management_prggrams: collective 
term for four system service programs: 
Core-Image Maintenance, Macro Maintenance, 
Directory Service, and Library Allocation 
Organization programs. 

lislSzedit ing : combining of compiled 
object module (s) with other compiled 
object module (s) and/or PL/I library rou- 
tines into an executable object program. 



load: to read an executable object pro- 
gram into main storage preparatory to 
executing it. 

i22i£§i_E§cord: see record. 

loop: sequence of statements executed 
successively more than one time. 

Low. z°E<l er _d iqi t : rightmost digit of a 
decimal number. 

S a iS_E£2cedure: see ini t i a l_p.r oc e d u r e . 

a a iH_§.t2E a 2e : the internal storage area 
of the central processing unit (CPU) that 
controls all internal manipulation of 
data. 

§§iaIiH§_EE23E a .2! : program whose execution 
is interrupted by an inquiry program and 
whose execution is continued when the 
inquiry program has been processed. 

S§i2E_§iEli££ure: a structure whose name 
is declared with level number 1. 

!!!&- J2£z_2i rue t ur e_na m e : name used to refer 
to the entire structure must be declared 
with level number 1. 

§ifi2E_st^ucture: a structure whose name 
is declared with a level number greater 
than 1. 

module: the input to, or output from, a 
single execution of an assembler or com- 
piler; a source, object, or load module; 
hence, a program unit that is discrete and 
identifiable with respect to compiling, 
combining with other units, and loading. 

Monitor_Program. The main DPS control 
program. Resident in main storage 
throughout a system run. Loads programs 
into main storage and causes their 
execution. 

Suit izexj:en t_d isk_f il e : file stored on a 
disk pack defined by more than one extent. 

lUlti-f ile_yolume: volume that contains 
more than one file. 

Siul ti- E§.e l-ii-Ee-f i 1 §. ^ a file stored on 
more than one tape reel. 

I3.1ti-volume_disk_f ile: a disk file 
stored on mora than one disk pack. 

§^£ilvolume_tape_f ile: see multi-reel 
tape_f ile. 

l!iItiple_declaration: two or more 
declarations of the same identifier in the 
same procedure without different qualifi- 
cations, or two or more EXTERNAL declara- 
tions of the same identifier as different 
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names within a single program. Multiple 
declaration is in error. 



name: an identifier that has been 
declared. 



2.§sting: 1, the occurrence of a DO-group 
within another DO-group. 2. the occur- 
rence of an IF statement in a THEN clause 
or an ELSE clause. 3. the occurrence of 
a function reference as an argument of 
another function reference. 

n u 1 1 _s t a t em ent : represented by a semico- 
lon; indicates that no action is to be 
taken. 

nu meric- c ha r a c t e r_d a ta : arithmetic data 
described by a picture that is stored in 
character form. It has both an arithmetic 
value and a character-string value. 

2bject_module: the output of an assembler 
or a compiler. An object module consists 
of (1) one or more control sections in 
relocatable, though not executable, form 
or (2) one executable object program. See 
£21Eil§<l_2E iect_module and executable 
2Ei22__l od_i 2 • 

on-line: pertaining to equipment or 
devices under direct control of the centr- 
al processing unit. 

0__unit: the action to be executed upon 
the occurrence of the ON-condition named 
in the containing ON statement. 

2E§_±23_lS_f ii§l_ : activating a file by 
means of an OPEN or GET or PUT statement 
associated with that file. 

operand: the representation of (1) infor- 
mation that must be supplied to define a 
selective function to the program, (2) 
selection of a value on which an operation 
is to be performed. 

2E2E a __2B : a selective function to be 
performed by the program. 

2E§EJ*tional_expression: expression con- 
taining operators. 

operator: a symbol specifying an opera- 
tion to be performed. See arithmetic 
2E2E a _2£§x._22fflE a .Eison_operators, an ^ 
£22S a .£§£_£i22« 

option: a specification in a statement 
that may be used by the programmer to 
influence the execution of the statement. 

organization_of _a_f ile : see consecutive 
f ile_organization and indexe__file 
2 r .3 a .2i z .ation. 



2y-2ElLi2£_ a E,§. a : tracks designated to 
accommodate records that are forced off 
the prime-data tracks by the insertion of 
new records. 



overlay: to j. lace a segment of an execut- 
able object program into main storage 
locations occupied by another program or 
segment that has already been processed. 

E§2K§^Z^S£il a i : storage technique whereby 
two digits or one digit and a sign are 
stored per byte. 

parameter: a name in an invoked procedure 
that is used to represent an argument 
passed to that procedure. 

permanent_disk_label: disk label that has 
been cataloged as a permanent entry into 
the label information area. 

££§. se- encode d_ tape : tape of the magnetic 
tape drive models 2415-4,-5,-6. 

Eky-§.i2 a .i_E222E^ : tne block (or the unit) 
of data that is physically transmitted to 
and from a volume. 

picture: a character-by-character speci- 
fication describing the composition and 
attributes of numeric character data. It 
allows editing. 

E2iS.t_aliqn.ment: alignment of arithmetic 
data in a variable depending upon the 
location of the decimal point as specified 
by the precision and scale attributes or 
the picture character V in a numeric- 
picture specification. 

pgint_of_inyocation: the point in the 
invoking procedure at which the procedure 
reference to the invoked procedure 

appears. 

E2i_£er_y^riable: a variable that identi- 
fies the storage to be used when referring 
to a based variable. 

RE2£i_i2H : the value range of an arith- 
metic variable expressed as the total num- 
ber of digits allowed and, for fixed-point 
variables, the assumed location of the 
decimal point. 

EE®£212il_d_ob_ec t_module : module that 
has been compiled or assembled by the PL/I 
Compiler or Assembler, respectively, but 
not link-edited, and that is used again as 
compiler input to be link-edited. 

prefix: (1) a label connected by a colon 
to the beginning of a statement; (2) a 
parenthesized list of condition names con- 
nected by a colon to the beginning of a 
procedure statement. 
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EE.§fix -Operator: an operator that pre- 
cedes, and is associated with, a single 
operand. The prefix operators are + 
and - . 



E.§22£ded_key_: a character string recorded 
in a logical record of an INDEXED file to 
identify that record. 



E£iS§_da ta_a rea : disk araas where the 
records of an INDEXED file are initially 
stored. 



££2fei§l_^§ta: character string or arith- 
metic data that is processed by a PL/I 
program . 



EE2 c .2dure: a block of statements, headed 
by a PROCEDURE statement and ended by an 
END statement, that defines a program 
region and delimits the scope of names and 
that is activated by a reference to its 
name. It controls allocation and freeing 
of automatic storage declared in it. A 
procedure may contain any statement except 
another PROCEDURE statement. 

2E2£§dure_reference: the appearance of a 
procedure name in a CALL statement. 

program: a set of one or more procedures, 
one of which must have the OPTIONS (MAIN) 
attribute in its PROCEDURE statement. 

program-control_data: data used in a PL/I 
program to affect the execution of the 
program. Label data and pointer data are 
the types of program control data. 

prologue: those processes that occur at 
the activation of a procedure. 

£§eudo- variable: the built-in function 
SUBSTR that can be used as a receiving 
field. 

HUsLiif" i§_d_name: a sequence of names of 
structure members connected by periods, to 
uniquely identify a component of a 
structure. 



random access 



see direct access. 



recej.ving_f.ield: any field to which a 
value may be assigned. 

record: a general term for any unit of 
data that is distinct from all others when 
considered in a particular context. 

record_f ormat: see f ixgd-length_record i 
variable2length_recorgL, and undefined- 
l§£__h_E2£2_d . 

record-orient ed_I/0: the transmission of 
collections of data, called records, one 
record at a time. The external represen- 
tation of the data is an exact copy of the 
internal, and vice versa. 



£slocatable_area: an area on the system 
disk pack to temporarily hold an object 
module, thus permitting the assembly or 
compilation and the execution of a program 
or program segment in one job. 

£§i22___2IL : th e modification of address 
constants required for a change of origin 
of a module or control section. 

r e mot e_f o r m a t_i t em : specification of a 
label of a separate statement that con- 
tains the format list to be used. 

£§H2tition_factor: a parenthesized 
unsigned decimal integer constant preced- 
ing a string configuration as a shorthand 
representation of a string constant. The 
repetition factor specifies the number of 
occurrences that make up the actual con- 
stant. In picture specifications, the 
repetition factor specifies repetition of 
a single picture character. 

repetitive_specif ication: an element of a 
data list that specifies controlled itera- 
tion to transmit a list of data items, 
generally used in conjunction with arrays. 

S2£2Et_Generator_and_Report_Program 
Generator [RPG_: A program which con- 
structs reports or report- writing programs 
in accordance with input specifications of 
the data file and of the desired report. 

£2§.§E.JL ed_w o r d : a keyword that has a spe- 
cific meaning and may only be used in a 
specific context. 

£§. _MEH§d_ value : the value returned by a 
function to the point of invocation. 

r o o t _s egm en t : segment containing the main 
procedure of a segmented program. Must 
remain in storage throughout execution of 
a program. Must be the 1st segment of the 

program. 

§2_1§ : fixed-or floating-point represen- 
tation of an arithmetic value. 

§2_I§_f a£_2£ : the number of digits to the 
right of the decimal point. 

scope [o f _a_c ond i t i on _pr e f i x_ : the range 

of a program throughout which a condition 
prefix applies. 

scope (of_a_name_ : the range of a program 

throughout which a name has a particular 
interpretation. 

sector: one tenth of a track (270 bytes) . 
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segment: the smallest addressable unit in 
the core-image library of a disk-resident 
system. 



§§2ii§Sti.3:i_5:£ c .ess_Xof _a_f ile)_ : consecu- 
tive transfer of either the whole file or 
part of the file. 

servi£e__rograms: a group of programs 
that create and maintain the system 
libraries and the relocatable area. 

§iaS.ifi£§:S.t_digit : a digit that contri- 
butes""^ the accuracy or precision of a 
numeric value. The number of significant 
digits is counted beginning with the digit 
contributing the most value, called the 
most significant digit, and ending with 
the one contributing the least value, 
called the least significant value. 

§il£le -Statement: see statement 

§2urce_key : a character string or a num- 
eric character data item referred to in a 
RECORD transmission statement that identi- 
fies a particular record within an INDEXED 
file. The source key is a character 
string to be compared with, or written as, 
a recorded key to identify the record. 

§23E£2_I2d ; ule: a set of source statements 
forming a complete control section or 
procedure. 

§2HE£§_EE23E&2 : the program that is 
translated and link-edited by the 
compiler. 

sp.scial_character : each non-alphameric 
character of the 60 or 48 character set. 

stacked- 3£b__rocessing: see batched -gob 
EE2£2§.sing. 

standard_system_action: action taken by 
the system when an interrupt occurs for 
which no other action has been specified. 

statement: a basic element of a PL/I pro- 
gram that is used to delimit a portion of 
a program, to describe data used in the 
program, or to specify action to be taken. 

§t_t§N§_t_.l_b_l : an identifying name pre- 
fixed to any statement other than a PROCE- 
DURE statement. 

§i a t ement_la.be l_vari able : a variable 
declared with the LABEL attribute and thus 
able to assume as its value a statement 
label . 

s ta t ic_s tora _e : storage that is allocated 
before execution of the program begins and 
that remains allocated for the duration of 
the program. 



s t or age_allo ca t io n : Association of a 
storage area with a variable. 



stream: data being transferred from or to 
an external medium represented as a con- 
tinuous string of data items in character 
form. 

strea m-or ien t_d_input_output : tr ansmis- 
sion of data items as a continuous stream 
of characters that are, on input, automat- 
ically converted to conform to the attri- 
bute of the variables to which they are 
assigned and, on output, are automatically 
converted to character representation. 

string: a connected sequence of charac- 
ters that is treated as a single data 
item. 

_t _iI19._2E§.E_ _2E : the string operator is 
| | , denoting concatenation of character 
strings. 

structure: a hierarchical set of names 
that refers to an aggregate of data items 
that may have different attributes. 

subfield: the integer description portion 
or the fraction description portion of a 
picture specification field that describes 
a noninteger fixed-point data item. The 
subfields are divided by the picture char- 
acter V. 

§__scri_t: expression enclosed in paren- 
theses following an array variable. It 
specifies the relative position, within 
the array, of a particular data element. 

substructure: structure declared one or 
more levels below the major-structure 
level. 

sy_bolic_deyice_address: a symbol used in 
IBM-supplied and user-written programs to 
refer to an I/O device (e.g., SYSRES, SYS- 
IPT, SYS005) . 

sy_s te m-disk__a ck : the disk pack on which 
the user's disk-resident system is stored. 

la_e_Error_Recovery_routine [TER_: a rou- 
tine to control the execution of error 
recovery procedures in the case of magnet- 
ic tape I/O errors. 

I a .E2_S.£.E2E_^_ a .ti s .ti2 s ._E.2_t _Q.§_1T ES _ . a 
routine to analyze the interrupts and mag- 
netic tape I/O errors occurring during the 
execution of a program. 

tapemark: a special record that can be 
read from, or written onto, magnetic tape. 
Used to distinguish the end of a file or 
file segment, and to separate labels from 
the data. 
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i§£ffiiM.tion: cessation of execution of a 
procedure and the return of control to the 
activating procedure by means of a RETURN 
or END statement, or the transfer of con- 
trol to the activating procedure or some 
other active procedure by means of a GO TO 
statement. A return of control to the 
programming system via a RETURN or END 
statement in the initial procedure. See 
epilogue. 

tEack: concentric circle on a disk sur- 
face used for the storage of data. One 
track may accommodate 2,700 bytes of data. 

£rack_index: table containing the identi- 
fication and the highest key associated 
with each track occupied by a file. 

trailer_label: file label following a 
file or part of tape file furnishing the 
information required to determine whether 
the end of file has been reached or wheth- 
er the file is continued on another 
volume. 

truncation: loss of digits to the right 
or left of a data item. 

HH^ef iQ.§dr.l engt h_r ec or d s : records of 
varying length, where by each block con- 
sists of only one record. The system does 
not insert any length-specifying records 
into the block. 



times. Variables fall into three cate- 
gories: element, array, and structure 
variables. Variables may be subscripted 
and/or qualified. 



va r ia ble-le ngt h_r e cor ds : logical records 
whose number of bytes is not fixed, but 
may vary within prescribed limits. 
Variable-length logical records may be 
blocked into physical records. Deblocking 
is dependent upon length-specifying bytes 
at the beginning of each logical and each 
physical record. The length bytes are 
inserted automatically by the system. 



volume: that portion of a single unit of 
storage media that is accessible to a 
single read/write mechanism. For example, 
a reel of magnetic tape for a 2415 magnet- 
ic tape drive, or one 1316 Disk Pack for 
an IBM 2311 Disk Storage Drive. 



volume_label: the volume label indenti- 
fies and protects the entire volume (disk 
pack or magnetic tape reel) . It is fixed 
in length and format, and lies in a fixed 
location within the volume. The volume 
label contains the volume serial number. 
In addition, the disk volume label con- 
tains the address of the volume table of 
contents. 



H£i ii £ Y__pr oqra m.£ s)_ : a program or a set of 
programs which assist in the operation of 
a computer, i.e., storage clearing, inter- 
mediate data transmission, dump program, 
file organization routines, etc. 

variable: a name that represents data. 
Its attributes remain constant, but it can 
represent different values at different 



Volume_Table_of_Contents_iVT02L' a number 
of records on a disk pack, composed of 
disk file labels, specifying the extents 
of, and identifying all files on the pack. 

zero-suppression_cha.ra.cter [in_a_picture 

specification).: picture character (Z or 
*) used to suppress leading zeros. 
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Appendix B. Upward Combatibility 



(This appendix contains only preliminary 
information) . 

Source programs written in Model 20 
PL/I are upward compatible to DOS/TQS PL/I 
and yield identical results on other 
System/360 models with the following 
exceptions: 

1. Floating-point arithmetic is imple- 
mented in Model 20 PL/I in decimal 
arithmetic. This means that internal 
precision and round-off errors are 
slightly different. 

2. The difference mentioned above causes 
a file incompatibility when using 
FLOAT variables in PL/I record- 
oriented I/O. This is due to the dif- 
ference in the representation of data. 
A method for reading such files with a 
DOS/TOS PL/I program will be described 



in the third part of this publication 
at a later date. 



3. The IBM 2560 Multi-Function Card 
Machine, the 2203 Printer, and the 
2152 Printer-Keyboard are not sup- 
ported on other System/360 models. 
Minor changes in the ENVIRONMENT 
attribute are necessary to change to 
other devices. 

4. In the MEDIUM option, the symbolic- 
device address SYSOPT has been intro- 
duced for Model 20 DPS. Programs that 
are expected to run on both Model 20 
and DOS/TOS PL/I should use SYSPCH 
instead of SYSOPT. SYSPCH and SYSOPT 
are synonymous in Model 20 PL/I. 
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Appendix C. Character Sets with EBCDIC and Card-Punch Codes 



60-CHARACTER SET 



Character 
blank 


Card-Punch 
no punches 


8-Bit Code 
0100~0000 


. 


12-8-3 


0100 


1011 


< 


12-8-4 


0100 


1100 


( 


12-8-5 


0100 


1101 


+ 


12-8-6 


0100 


1110 


1 


12-8-7 


0100 


1111 


& 


12 


0101 


0000* 


$ 


11-8-3 


0101 


1011 


* 


11-8-4 


0101 


1100 


) 


11-8-5 


0101 


1101 


i 


11-8-6 


0101 


1110 


i 


11-8-7 


0101 


1111 




11 


0110 


0000 


/ 


0-1 


0110 


0001 


r 


0-8-3 


0110 


1011 


% 


0-8-4 


0110 


1100* 


— 


8-5 


0110 


1101 


> 


0-8-6 


0110 


1110 


■> 


0-8-7 


0110 


1111* 


: 


8-2 


0111 


1010 


# 


8-3 


0111 


1011 


a 


8-4 


0111 


1100 


» 


8-5 


0111 


1101 


~ 


8-6 


0111 


1110 


A 


12-1 


1100 


0001 


B 


12-2 


1100 


0010 


C 


12-3 


1100 


0011 


I) 


12-4 


1100 


0100 


E 


12-5 


1100 


0101 


F 


12-6 


1100 


0110 


G 


12-7 


1100 


0111 


H 


12-8 


1100 


1000 


I 


12-9 


1100 


1001 


J 


11-1 


1101 


0001 


K 


11-2 


1101 


0010 


L 


11-3 


1101 


0011 


M 


11-4 


1101 


0100 


N 


11-5 


1101 


0101 





11-6 


1101 


0110 


P 


11-7 


1101 


0111 


Q 


11-8 


1101 


1000 


R 


11-9 


1101 


1001 


S 


0-2 


1110 


0010 


T 


0-3 


1110 


0011 


U 


0-4 


1110 


0100 


V 


0-5 


1110 


0101 


w 


0-6 


1110 


0110 


X 


0-7 


1110 


0111 


Y 


0-8 


1110 


1000 


Z 


0-9 


1110 


1001 



Character 

1 
2 
3 
4 
5 
6 
7 



Composite 
Symbols 
<=" 

I I 
** 
i< 
i> 
i - 



Card-Punch 



1 

2 

3 

4 

5 

6 

7 



i-Bit Code 



1111 


0000 


1111 


0001 


1111 


0010 


1111 


0011 


1111 


0100 


1111 


0101 


1111 


0110 


1111 


0111 


1111 


1000 


1111 


1001 



Card_Punch 
12-8-4, 8-6 



>= 

/* 
*/ 



-7 ', 

-4, 

-7, 

-1. 

-7, 
0-8-6, 8-6 
0-1, 11-8-4 
11-8-4, 0-1 



12- 
11- 
11- 
11- 
11- 



12-8-7 

11-8-4 

12-8-4 

0-8-6 

8-6 



Note: 

folio 

compo 

(see 

must 

with 

chara 

prete 

ter c 

Excep 

for c 

chara 



When u 
wing rul 
site sym 
48-Chara 



sing 
e sh 
bols 
cter 



not be u 
the 60-c 
cter com 
d as ide 
ombinati 
tions ar 
omments. 
cter set 



sed 
hara 
bina 
ntif 
ons 
e th 
Th 
s. 



the 60-c 
ould be o 

of the 4 
_Set in t 
as keywor 
cter set. 
tions wou 
iers; the 
would cau 
e charact 
ey are id 



haracte 
bserved 
8-chara 
his App 
ds or d 
The a 
Id be i 
specia 
se erro 
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r set the 
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elimiters 
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nter- 
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rs. 

inations 
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* not used in Model 20 PL/I 
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48-CHARACTER SET 



Character 
blank 


Card^Punch 
no punches 


8-Bit code 
0100 0000 


. 


12-8-3 


0100 


1011 


( 


12-8-5 


0100 


1101 


+ 


12-8-6 


0100 


1110 


$ 


11-8-3 


0101 


1011 


* 


11-8-4 


0101 


1100 


) 


11-8-5 


0101 


1101 




11 


0110 


0000 


/ 


0-1 


0110 


0001 


/ 


0-8-3 


0110 


1011 


i 


8-5 


0111 


1101 


= 


8-6 


0111 


1110 


A 


12-1 


1100 


0001 


B 


12-2 


1100 


0010 


C 


12-3 


1100 


0011 


D 


12-4 


1100 


0100 


E 


12-5 


1100 


0101 


F 


12-6 


1100 


0110 


G 


12-7 


1100 


0111 


H 


12-8 


1100 


1000 


I 


12-9 


1100 


1001 


J 


11-1 


1101 


0001 


K 


11-2 


1101 


0010 


L 


11-3 


1101 


0011 


M 


11-4 


1101 


0100 


N 


11-5 


1101 


0101 





11-6 


1101 


0110 


P 


11-7 


1101 


0111 


Q 


11-8 


1101 


1000 


R 


11-9 


1101 


1001 


S 


0-2 


1110 


0010 


T 


0-3 


1110 


0011 


U 


0-4 


1110 


0100 


V 


0-5 


1110 


0101 


W 


0-6 


1110 


0110 


X 


0-7 


1110 


0111 


Y 


0-8 


1110 


1000 


Z 


0-9 


1110 


1001 








1111 


0000 


1 


1 


1111 


0001 


2 


2 


1111 


0010 


3 


3 


1111 


0011 


4 


4 


1111 


0100 


5 


5 


1111 


0101 


6 


6 


1111 


0110 


7 


7 


1111 


0111 


8 


8 


1111 


1000 


9 


9 


1111 


1001 









60- 


Character 


Comp 


osite 




Set 




S_2fflb 


ols 


Card Punch 


Equivalent 


. . 




12-8-3, 12-8-3 




: 


LE 




11-3, 12-5 




<= 


CAT 




12-3, 12-1, 0-3 




l -I 


** 




11-8-4, 11-8-4 




** 


NL 




11-5, 11-3 




i< 


NG 




11-5, 12-7 




n> 


NE 




11-5, 12-5 




l = 


/ • 




0-8-3, 12-8-3 






AND 




12-1, 11-5, 12-4 




& 


GE 




12-7, 12-5 




>= 


GT 




12-7, 0-3 




> 


LT 




11-3, 0-3 




< 


NOT 




11-5, 11-6, 0-3 




i 


OR 




11-6, 11-9 




1 


/* 




0-1, 11-8-4 




/* 


*/ 




11-8-4, 0-1 




*/ 



Note: When using the 48-character set, 
the following rules should be observed: 



The sequence "comma period" represents 
a semicolon except when it occurs in a 
comment or character string, or when 
it is immediately followed by a digit. 



The composite symbols of the 48- 
character set are reserved words in 
the 48-character set; i.e., these 
identifiers must not be used as 
variables, entry names, or filenames. 
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Appendix D. Model 20 PL/I Keywords 



Keyword 



H§g_of._Ke£word 



ABS (x) 

ADDR (x) 

ATAN(x[,y]) 

AUTOMATIC 

BACKWARDS 

BASED (pointer- variable) 

BUILTIN 

BY 

CALL 

CEIL (x) 

CHAR (value[ ,size]) 

CHAR (length) 

CHARACTER (length) 

CLOSE 

CONVERSION 

COS (X) 

DATE 

DCL 

DECIMAL 

DECLARE 

DEF 

DEFINED 

DIRECT 

DISPLAY 

DO 

EDIT 

ELSE 

END 

ENDFILE 

ENDPAGE 

ENTRY 

ENV 

ENVIRONMENT 

ERROR 

EXP(X) 

EXT 

EXTERNAL 

FILE 

FILE (file-name) 

FIXED 

FIXEDOVERFLOW 

FLOAT 

FLOOR (x) 

FORMAT (format-list) 

FROM 

GET 

GO TO, GOTO 

HIGH(i) 

IF 

INIT 

INITIAL 

INPUT 

INTERNAL 

INTO (variable) 

KEY (file-name) 

KEY(x) 

KEYED 

KEYFROM (x) 

LABEL 

LOCATE 



built-in function 

built-in function 

built-in function 

attribute 

attribute 

attribute 

attribute 

clause of DO statement 

statement 

built-in function 

built-in function 

attribute 

attribute 

statement 

condition 

built-in function 

built-in function 

statement 

attribute 

statement 

attribute 

attribute 

attribute 

statement 

statement 

STREAM I/O transmission mode 

clause of IF statement 

statement 

condition 

condition 

attribute 

attribute 

attribute 

condition 

built-in function 

attribute 

attribute 

attribute 

option of GET and PUT, specification of RECORD I/O statement 

attribute 

condition 

attribute 

built-in function 

statement 

option of REWRITE or WRITE statement 

statement 

statement 

built-in function 

statement 

attribute 

attribute 

attribute 

attribute 

option of READ statement 

condition 

option of READ and REWRITE statement 

attribute 

option of WRITE and LOCATE statement 

attribute 

statement 
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Keyword 



Use_of .Keywords 



LOG (X) 
LOW (i) 

MAIN 

MAX (arguments) 

MIN (arguments) 

NOCONVERSION 

NOFIXEDOVERFLOW 

NOOVERFLOW 

NOUNDERFLOW 

NOZERODIVIDE 

ON 

ONSYSLOG 

OPEN 

OPTIONS (list) 

OUTPUT 

OVERFLOW 

PAGE 

PAGES IZE(w) 

PIC 

PICTURE 

POINTER 

PRINT 

PROCEDURE 

PUT 

READ 

RECORD 

RECORD (file-name) 

REPLY (c) 

RETURN 

RETURNS 

REWRITE 

ROUND(x f n) 

SEQUENTIAL 

SET 

SIN (x) 

SKIP[ (X) ] 

SQRT(X) 

STATIC 

STREAM 

STRING (string-name) 

SUBSTR (string,!, j) 

SYSTEM 

TAN (x) 

TANH (x) 

THEN 

TO 

TRANSMIT 

TRUNC(x) 

UNDERFLOW 

UPDATE 

WRITE 

ZERODIVIDE 



built-in function 

built-in function 

option of PROCEDURE statement 

built-in function 

built-in function 

condition prefix identifier, disables CONVERSION 

condition prefix identifier, disables FIXEDOVERFLOW 

condition prefix identifier, disables OVERFLOW 

condition prefix identifier, disables UNDERFLOW 

condition prefix identifier, disables ZERODIVIDE 

statement 

option of PROCEDURE statement 

statement 

option of PROCEDURE statement 

attribute 

condition 

format item, option of PUT statement 

option of the OPEN statement 

attribute 

attribute 

attribute 

attribute 

statement 

statement 

statement 

attribute 

condition 

option of DISPLAY statement 

statement 

attribute 

statement 

built-in function 

attribute 

option of READ and LOCATE statements 

built-in function 

format item, option of PUT statement 

built-in function 

attribute 

attribute 

option of GET and PUT statements 

built-in function, pseudo-variable 

action specification of the ON statement 

built-in function 

built-in function 

clause of IF statement 

clause of DO statement 

condition 

built-in function 

condition 

attribute 

statement 

condition 
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Appendix E. File Attributes and Options 





Nv TYPE OF FILE 

FILE \ 
ATTRIBUTES \ 
AND OPTIONS \ 


STREAM 


«~ RECORD 




INPUT 


OUTPUT 




OUTPUT 
PRINT 




SEQUENTIAL 






| DIRECT 




CONSECUTIVE 


INDEXED 




PR 


RD 
NT 


TAPE 






DISK 






a 

< 

u 


UJ 

a. 
< 

i— 




Q 
< 


h- 
Z 
at 
a. 


UJ 

a. 
< 


5 


UJ 
(- 

Z 
ec 

a. 


UJ 

i— 


to 

5 


5 

a. 
Z 


5 

a. 




I 

O 

u. 
Z 


z 


5 

a. 

o 


5 

a. 
Z 


5 

a. 

o 


UJ 

1— 

< 


5 

a. 
Z 


5 

a. 

o 


UJ 

< 

a 

5 


5 

Q. 
Z 


UJ 

1— 

< 

Q 

5 




filename 1-6 characters 
FILE 


S 


S 


s 


S 


S 


S 


S 


S 


S 


s 


S 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 




S 


S 


s 


S 


S 


S 


S 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 




RECORD 
STREAM 






















s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


A 
T 
T 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 




























SEQUENTIAL 

DIRECT 

KEYED 






















D 


D 


D 


D' 


D 


D 


D 


D 


D 


D 


D 






R 












































s 


s 


B < 






































S 


s 


S 


s 


s 


U 
T 


INPUT 

OUTPUT 

UPDATE 


S 


S 


S 
















S 




S 


s 




S 






S 






s 




E 








S 


S 


S 


S 


D 


D 


D 




S 






s 




S 






S 








S 




































S 






S 




s 




PRINT 
BACKWARDS 
















S 


s 


S 
























































s 




















\ 


ENVIRONMENT ( 
MEDIUM ( 


S 


S 


S 


s 


S 


S 


S 


S 


S 


S 


S 


S 


S 


s 


s 


S 


S 


s 


S 


S 


S 


s 


s 


y 


S 


S 


S 


s 


S 


S 


S 


S 


S 


S 


S 


s 


S 


s 


s 


S 


S 


s 


S 


S 


S 


s 


s 




SYSIPT 

SYSOPT/SYSPCH 

SYSLST 

SYSnnn (nnn = 000 - 019) 


c 


C 


C 
















C 




C 






C 
























c 




C 


C 










c 






c 




C 
























C 






C 








c 


























c 


C 


C 


c 


C 


C 


C 


C 


C 


C 


c 


c 


C 


s 


c 


C 


C 


s 


S 


S 


s 


s 


s 




2501/2520/2560P/25605/2152 

2520/2560P/2560S/1 442 

1403/2203/2152 

2400 

2311) 


c 




















c 


































c 
















c 


































C 






C 








c 




























S 








S 






S 








S 


s 


s 
























S 








S 






S 












S 


s 


s 


S 


S 


s 


s 


s 




CONSECUTIVE 
INDEXED 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


















































s 


s 


s 


s 


s 


o 


KEYLENGTH 
KEYLOC 
OFLTRACKS 
EXTENTN UMBER 






































s 


s 


s 


s 


s 


p 

T 
1 < 






































s 


s 


s 


s 


s 








































o 






o 


O 

N 






































s 


s 


s 


s 


s 


S 


U (maxblocksize) 
F (blocksize) 
F (blocksize, recsize) 
V (maxblocksize) 


T 






T 








T 






T 


T 


C 


C 


C 




















S 


S 


S 


S 


S 


S 


S 


S 


S 


S 


S 


S 


C 


C 


C 


C 


c 


C 


c 


c 


c 


c 


c 




























C 


C 


C 


C 


c 


C 


c 


c 


c 


c 


c 




























C 




c 




















BUFFERS (1) 
BUFFERS (2) 


O 


O 


O 


O 


O 


O 


O 


O 


O 


O 


O 


O 


O 


O 


o 


O 


o 


O 


O 


o 





D 


p 




D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 


D 








LEAVE 

NOLABEL 

VERIFY 

NOTAPEMK 

ALTTAPE 

CTLASA 

NOWRITE) 




O 








O 






O 








O 


O 


o 






















O 








O 






O 








O 


O 


O 
































O 






O 














O 


O 




o 


O 




o 














O 






O 












O 






















O 








O 






O 








O 




O 










































O 






































































o 




Symbols used: S = Attribute must be specified 

D = Default attribute, if not specified 

O "Optional attribute.Specify if applicable 

C = Choice must be made among these attributes 

T =For 2152 U must be used instead of F 

No entry is permitted, where a blank appears 
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Appendix F. Valid I/O Statements 













RECORD 


VALID INPUT/OUTPUT ^^**^^ 
STATEMENT FORMATS ^ 

^ APPLICABLE 

^ ON-CONDITIONS 


STREAM 


SEQUENTIAL 


DIRECT 


CONSECUTIVE 


INDEXED 


5 

a. 
Z 


1- 

z 

a. 

t— 

o 

z 

o 


1— 

z 

a: 
a. 

5 

a. 

o 


5 

z 


5 

a. 

o 


1— 

< 

a 


5 
a. 

z 


5 

a. 

o 


Ul 

1— 

< 

5 


5 
a. 

Z 


Ui 

< 

a 

5 


OPEN 


FILE (filename) 


o 


o 


o 


M 


M 


M 


M 


M 


M 


M 


M 


FILE (filename) PAGESIZE (n) 






o 


















CLOSE 


FILE (filename) 


o 


o 


o 


O 


O 


O 


O 


o 


O 


O 


O 


GET 


FILE (filename) EDIT (data) (format). . . 


o 






















PUT 


FILE (filename) EDIT (data) (format). . . 




o 


o 


















FILE (filename) PAGE 






o 


















FILE (filename) SKIP (n) 






o 


















FILE (filename) PAGE EDIT (data) (format). . . 






o 


















FILE (filename) SKIP (n) EDIT (data) (format). . . 






o 


















READ 


FILE (filename) INTO (variable) 








o 




O 


O 




o 






FILE (filename) SET (pointer) 








o 




O 












FILE (filename) INTO (variable) KEY (expression) 














O 




o 


O 


O 


REWRITE 


FILE (filename) 












O 












FILE (filename) FROM (variable) 












O 






o 






FILE (filename) FROM (variable) KEY (expression) 


















o 


O 




LOCATE 


variable FILE (filename) SET (pointer) 










O 














WRITE 


FILE (filename) FROM (variable) 










o 














FILE (filename) FROM (variable) KEYFROM (expression) 
















o 






O 


ON-CONDITIONS 
WHICH MAY OCCUR 


CONVERSION 


o 






















ENDFILE (filename) 


o 






o 




O 


O 




o 






ENDPAGE (filename) 






o 


















KEY (filename) 














O 


o 


o 


O 


O 


RECORD (filename) 








o 












TRANSMIT 


o 


o 


o 


o 


o 


O 


o 


o 


o 


O 


O 


Symbols used: M = Use of this statement is mandatory 

O = For I/O statements: Use of this statement format is optional 
For ON conditions: This condition may occur 
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INDEX 



A data- format item 

general description and examples 62 

rules and syntax 99 

ABS built-in function 105 

Access 

of a consecutive file 172 

of an indexed file 180 

Activation of a procedure 19 

Actual device address 149 

Addition 

attributes of result of 34 

of fixed-point operands 32 

of records to an indexed file 

(example) 178 

Additive file attribute 55 

ADDR built-in function 

general description and examples 85 

syntax and rules 109 

Alignment of data items in storage .... 204 

Alphabetic character 15 

Alphameric character 15 

Alternate tape unit, assignment of .... 170 

Alternative file attribute 55 

ALTTAPE option 

example of its use 170 

general rules 184 

Ambiguous reference 53 

Argument 75 

Argument list 75 

Arguments and parameters 

in Assembler procedures 201 

general description and examples of .. 7 5 

relationship of 79 

types of 80 

Arithmetic built-in function 105 

Arithmetic data 20 

base of 20 

precision of 21 

scale of 20 

values of 21,22 

Arithmetic operation 30 

conversion of operands in 31 

format of result of 31 

result of 31 

Arithmetic operator 16 

list of arithmetic operators 16 

Arithmetic value 

of numeric-character variable 7 2 

Array 

assignment 124 

bound of 26 

dimension of 26 

extent of 26 

general description and examples .. 25,26 

storage mapping of 204 

subscript 25 

expression as array subscript 26 

variable 25 

ASA control character 170 

Assembler 200 

procedure linked with PL/I 
procedures 203 



ASSGN job-control statement 147 

Assignment 

array 124 

element variable 124 

expression 124 

label array 124 

label constant 124 

label variable 124 

of alternate tape unit 170 

pointer 124 

by stream-oriented I/O 70 

by using the STRING option in the 

GET and PUT statements 71 

Assignment statement 

formats and syntax rules 124 

general description and examples 4 

asterisk picture character 92 

ATAN built-in function 107 

ATR option 158 

ATRO option 158 

Attribute 

alphabetic list of attributes 116 

table of file attributes and options 230 

Automatic storage 48 

AUTOMATIC storage-class attribute 116 

BACKWARDS file-description attribute 

example of its use 171 

general description 57 

rules and format 116 

Base identifier 117,29 

Based storage 86 

BASED storage-class attribute 

general description and examples 86 

rules and format 116 

Based variable 

general description and examples 84 

Batch compilation 153 

Blank 

picture character 94 

use of blanks in PL/I statement 17 

Block 

ON- block 201 

record block 54 

Blocking 

of records 54 

summary of block sizes permitted .... 182 

Bound of array 26 

Break character 17 

Buffer 55 

BUFFERS option 

example of its use 177 

general rules 1 82 

BUI LTIN attribute 117 

Built-in function 

general description 78,52 

list of built-in functions 103 

CALL DYNDUMP statement 204 

CALL OVERLAY statement 163 

Call routine PL1SCA 201 
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CALL statement 

format and rules 126 

general description and examples „ . 43,76 
Card-punch codes 

for character sets 22 6 

CATAL control statement 

examples of its use . ... 197 

format and rules . ... 196 

Cataloging 

disk labels 193 

programs 

from SYSIPT=SYSRDR 196 

from SYSIPT#SYSRDR 197 

from relocatable area 197 

CEIL built-in function 105 

CHAR built-in function 103 

CHAR character-string data attribute .. 117 
CHARACTER character-string data 

attribute 117 

Character set 

card-punch codes 

for 48-character set 227 

for 60-character set 226 

using the 16 

4 8-character set 16 

60-character set 15 

Character-string data 23 

altering the length of 70 

general description and examples 24 

maximum length allowed , 24 

Character-string handling 70 

built-in functions for , 74 

Character-string value 

of numeric-character variable 72 

CHAR4 8 option 158 

CHAR60 option 158 

CLOSE statement 

format and rules 127 

general description 39,57 

Closing a file 57 

CMAINT operand 196 

Comma picture character 93 

Comments 

in job-control statements 144 

in PL/I statements 17 

Comparison operation 33 

algebraic 34 

character 34 

in IF statement 131,34 

pointer 34 

Comparison operators 16,33 

Compatibility 22 5 

Compilation 

of PL/I source modules 154 

and linkage 154 

, linkage, and execution 154 

, linkage, and cataloging 154 

, linkage, and execution of source 
modules and precompiled object 

modules , 156 

Compiled object module 156 

Compiler 153,142 

input to » 153 

output from 156,159 

Compiler control statement , 157 

Compound statement 18 

Computational built-in functions , 103 

Computational conditions 110 



Concatenation operation 36 

Concatenation operator 16 

Condition 

computational conditions 111 

conditions always enabled 92 

enabling and disabling of conditions . 81 

exceptional conditions 110 

general description and examples 81 

input/output conditions 112 

system-action condition 113 

Condition name 18 

Condition prefix 18 

Conditional digit position 92 

CONFG job-control statement 145 

Consecutive file 

accessing of 172 

attributes and options 169 

creation of 169 

input/output devices 169 

record formats 169 

CONSECUTIVE option 

general rules . 180 

Constant 20 

Contextual declaration 51 

Control format item 

general description and examples 63 

table of control format items 98 

Control program 141 

Control variable 

in DO statement 42,128 

Conversion 

of. fixed- point operand 31 

of floating-point operand 31 

CONVERSION condition 111 

COPTN compiler-control statement 

format and rules 157 

options 158 

COPY control statement 155,156 

COS built-in function 107 

Creation 

of consecutive file 169 

of indexed file 177 

CR picture character 96 

Credit picture character 96 

CTLASA option 

example of its use 170 

general rules 183 

Currency symbol picture character 95 

Cylinder 172 

Cylinder index 175 

Cylinder overflow area 175 



Data format item 

general description and examples 62 

table of data format items 98 

Data list 

general description and examples 60 

repetitive specification in 60 

Data-movement and computational 

statements 40 

Data organization 25 

array 25 

structure 27 

Data storage mapping 

of arrays 204 

of structures 204 



Index 
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Data types 

problem data 20 

arithmetic data 20 

character-string data 23 

prog ram- control data 24 

label data 25 

pointer data 24 

DATE built-in function 109 

DATE job-control statement 145 

DB picture character 96 

DCL statement 127 

Debit picture character 96 

DECIMAL arithmetic-data attribute 117 

Decimal point alignment 

in numeric-character variable 73 

Decimal point picture character 73 

Decimal point specifier V 91,73 

DECLARE statement 

examples 170,171,177 

general description 38 

DECK option 158 

DEF data attribute 117 

Default precision 

of fixed-point data 21 

of floating-point data 22 

DEFINED attribute 

general description and examples 28 

rules and format 117 

Defined item 29 

Defined variable 117 

Defining of data 117,29 

simple 118 

string-overlay 118 

Definition of terms 214 

DELET control statement 

example 198 

format and rules 197 

Deletion of records 

from indexed file 175 

Descriptive statement 38 

Device independence 58 

Device type 

specification in MEDIUM option 183 

Diagnostic capabilities 

during compilation 159 

during execution 159 

Digit 15 

Digit specifier 9 91,72 

Dimension attribute 

rules and format 118 

Dimension of array 

general description and examples 26 

DIRECT file-description attribute 

general description 56 

rules and format 118 

Direct retrieval 

of indexed file 175 

Disabled condition 81 

Disk file 186 

Disk organization „ 172 

Disk programming system 

general description 142 

schematic representation of 142 

DISPLAY statement 

format and rules 127 

example of its use 203 

Division 

of fixed-point operand 32 



attributes of result of 34 

DLAB control statement 188 

DO-group 19 

DO statement 

format and rules 128 

general description and examples 42 

Drifting character 

in picture specification 95 

DSPLY control statement 194 

Dummy argument 79 

DUMP option 158 

Dynamic storage allocation 48 

automatic storage 48 

based storage 48 

Dynamic storage area 201 

DYNDUMP routine 20 4 

E data format item 

general description and examples 62 

rules and syntax 99 

E exponent specifier 97 

E picture character 97 

EBCDIC codes for 

48-character set 227 

60-character set 226 

Edit-directed transmission 59 

Editing 

by assignment 70 

numeric- character data 72 

Element assignment 124 

ELSE clause 

in IF statement 130 

Enabled condition 81 

END statement 

format and rules 129 

general description and examples .. 43,77 

ENDFILE condition 112 

ENDPAGE condition 112 

ENTRY attribute 

general description and examples 79 

rules and format 118 

Entry name 19 

ENV file-description attribute 119 

ENVIRONMENT attribute and its 

options 180,119 

Epilogue 50 

ERROR condition 112 

ERROR option 158 

Errors 

detected with declarations 159 

syntax 159 

Established action 81 

EXEC job-control statement 147 

Executable object module 157 

Exception-control statement 44 

EXP built-in function 107 

Explicit declaration 51 

Exponent specifier E 97 

Exponentiation 

of fixed-point operand 32 

attributes of result of 34 

Expression 

general description and examples 30 

Expression operation 30 

arithmetic 30 

comparison 33 

concatenation 36 

EXT scope attribute (see EXTERNAL) 
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Extent 

of array 26 

of file 173 

EXTERNAL scope attribute 119 

Extension 

of indexed file . 175 

EXTENTNUMBER option 

example 178 

rules 185 

EXTERNAL scope attribute 

general description 52 

rules and syntax 119 

EXTREF option . 15 8 

F data-format item 

general description and examples 62 

rules and syntax 100 

F-format option 

general rules 181 

examples 170,177 

Field width 

of E format item 99 

of F format item 100 

of X format item 102 

File 54 

FILE attribute 

general description 55 

table of file attributes and options 230 

File declaration 55 

File label 185 

FILE option 66 

File organization 166 

consecutive 169 

indexed 175 

Fi lename 54 

FILES control statement 

example 192 

format and rules 150 

FIXED arithmetic-data attribute 119 

Fixed- length record 166 

Fixed- point data item 21 

default precision of 21 

format of 21 

internal form of 21 

range of values of 21 

Fixed- point operand 32 

addition and subtraction of 32 

conversion of 31 

division of 33 

exponentiation of 33 

multiplication of 32 

FIXEDOVERFLOW condition 111 

FLOAT arithmetic-data attribute 119 

Floating-point data item 21 

format of 22 

default precision of 22 

internal form of 22 

range of values of 22 

maximum precision of 22 

Floating-point operand 32 

conversion of 31 

FLOOR built-in function 105 

Format item 59 

control 59 

data 5 9 

remote 59 

rules and syntax 98 

Format list 62 



FORMAT statement 129 

FROM option 67 

Function 

attributes of value returned by a .... 77 

general description and examples 76 

Function reference 

expression containing 37 

general description and examples 77 

GET statement 

format and rules 129 

GET STRING statement 

general description and examples .. 40,71 

GODECK option 158 

GO TO statement 

format and rules 130 

general description 41 

Group 19 

Header label , 186 

HIGH built-in function 103 

IBM 1316 Disk Pack 172 

IBM 2152 Printer-Keyboard 199 

Identifier 16 

length of 17 

IF statement 

format and rules 130 

general description and examples 41 

Implicit declaration of a name 51 

Implicit opening of a file 57,39 

Independent overflow area 175 

Indexed file 

accessing an 180 

attributes and options of 177 

creation of 177 

deletion of records from 175 

direct retrieval of 175 

extension of 175 

insertion of new records into 175 

record formats and keys of 176 

sequential retrieval of 175 

Indexed file organization 175 

INDEXED option 181 

Index 

cylinder index 175 

track index 175 

Infix operator 30 

INIT data attribute (see INITIAL) 

INITIAL data 49 

INITIAL data attribute 

general description and examples 29 

rules and format 120 

Initial procedure 47 

Initialization of data 29 

INPUT file-description attribute 

general description 56 

rules 121 

Input/output condition 110 

Input/output devices used with conse- 
cutive files 169 

Input/output statements 68 

summary of RECORD 68 

summary of STREAM 65 

table of valid I/O 

statements 231 

Inquiry program 199 
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Insertion character 

examples and rules 93 

general description 73 

INTERNAL scope attribute 

general description 52 

rules and format 119 

Internal form 

of fixed-point data items 21 

of floating-point data items 22 

INTO option 66 

Invoking procedure „ 19 

Invocation of a procedure 47 

Iteration factor 

compared with repetition factor 2 9 

Iteration specification 

in INITIAL attribute 12 

Job control 143 

Job control program 142 

JOB control statement 145 

Job-control statement 

comments in 144 

examples 151 

format „ 144 

operands in 144 

order of input „ 144 

summary „ 144 

Key „ 175 

KEY condition 112 

KEY option 6 7 

KEYED file-description attribute 

general description 57 

rules 121 

KEYFROM option 6 8 

KEYLENGTH option 

example 177 

general rules 185 

KEYLOC option 

example « 177 

general rules 185 

Keywords 

alphabetic list 228 

use of „ 15,16 

Label 

file 185 

volume , 185 

Label assignment 124 

Label constant 24 

Label data 2 4 

Label information 

for disk files 189 

for tape files 188 

Label- information processing 150 

Label-control statement 186 

Label prefix 18 

LABEL program-control data attribute .. 121 

Language translator 141 

LEAVE option 

example 171 

general rules . „ 184 

Length 

of identifier 16 

of picture specification 23 

of qualified name 28 

Length (character-string attribute) ... 121 



Level of a structure 27 

Level number 27 

Linkage 

of precompiled object modules 155 

and execution 156 

LINK option 158 

Linking PL/I procedures 

with Assembler procedures 200 

rules and restrictions 202 

LIST option 158 

Loading a segment 163 

LOCATE statement 

format and rules 131 

general description and options ... 66,85 

LOG built-in function 107 

LOG job- control statement 146 

Logical record 54 

Long floating-point form 22 

LOW built-in function 104 

LSORT option 158 

MAIN option 133 

Main procedure 47 

Mainline program 199 

Major-structure name 27 

Mathematical built-in function 107 

summary 108 

MAX built-in function 106 

MEDIUM option 

examples 179,177 

general rules 182 

MIN built-in function 106 

Minus sign 

in numeric-character data 95 

Module 153 

Monitor program 141 

Multi-file volume 

disk 192 

tape 192 

Multi-volume file 

disk 193 

tape 192 

Multiple declaration 53 

Multiplication 

attributes of result of 34 

of fixed-point operand 32 

Name 51 

contextual declaration of 51 

explicit declaration of 51 

implicit declaration of 52 

length of 16,28 

recognition of 51 

scope of 51 

Negative scale factor 33 

Nesting 

of DO statement 43 

of IF statement 42 

of iteration specification 29 

of repetition specification 29 

NO condition prefix 81 

NOATR option 158 

NOATRO option 158 

NODECK option 158 

NODUMP option 158 

NOEXTREF option 159 

NOGODECK option 158 
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NOINQ operand 

of OPTN control statement 146 

NOLABEL option 

example 171 

general rules 184 

NOLINK option 158 

NOLIST option 158 

NOLOG job-control statement 147 

NOLSORT option . 15 8 

Non- iterative DO statement 43 

NOOFFSET option 159 

NOSOURCE option 15 8 

NOSTMT option 158 

NOTAPEMK option 

example 171 

general rules 184 

NOWRITE option 

example 211 

general rules 184 

NOXREF option 15 8 

Null statement 132 

Numeric-character variable 

credit, debit, and overpunched signs 

in 96 

currency symbol in 95 

drifting character in 95 

exponent specifier E in 97 

insertion characters in 93 

picture characters in 90 

purpose of 74 

signs in 95 

static character in 95 

values of 72 

zero-suppression characters in 92 

OFFSET option 159 

OFLTRACKS option 

example 177 

general rules 185 

On-block 201 

ON-condition 

(see condition) 

ON statement 

format and rules 132 

general description and examples 44 

scope of 82 

ON-unit 82 

ONSYSLOG option 133 

OPEN statement 

format and rules 132 

general description 39,57 

Opening a file 57 

Operand 

expression 30 

fixed-point 32 

floating-point 32 

of control statements (see indivi- 
dual control statements) 

Operational expression 30 

Operator 

priority of operators 36 

Option 

options of ENVIRONMENT attribute 

(see ENVIRONMENT attribute) 
options of statements 

(see individual statements) 

OPTIONS (MAIN) attribute 47 

OPTN job-control statement 146 



Output 

from compiler 156 

OUTPUT file-description attribute 

general description 56 

rules 121 

Overflow area 175 

OVERFLOW condition 111 

Overlay 163 

Overpunched sign 96 

Packed decimal 21 

Page layout for print files 64 

PAGE format item 

general description and examples 63 

rules and syntax 101 

PAGESIZE option 132 

Parameter 75 

Parameter list 75 

PAUSE job- control statement 147 

Permanent device assignment 148 

Permanent disk label 

cataloging of 193 

deletion of 193 

displayment of 194 

Physical record 54 

PIC data attribute (see PICTURE) 
Picture character 

general description 72 

rules and examples 90 

PICTURE data attribute 

examples 90 

general rules 121 

Picture specification 

general description and examples 71 

maximum length of 23 

picture characters 90 

possible digit positions 23 

Point 

of invocation 47,19 

picture character 93 

Point alignment 

in numeric- character variable 73 

Pointer assignment 124 

Pointer data 25 

POINTER program- control data attribute 122 

Pointer manipulation 87 

Pointer value 

assignment of 85 

Pointer variable 84 

restrictions on 86 

values of 84 

Positioning 

of multi-file volume 

disk file 192 

labeled tape file 191 

unlabeled tape file 191 

Precompiled object module 155 

Precision (arithmetic-data attribute) . 122 

Prefix 18 

condition prefix 18 

label 18 

Prefix operator 30 

Prime data area 175 

PRINT file-description attribute 

general description 56 

rules 122 

Printed listings 159 



Index 
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Printer-carriage control 
character codes 

for RECORD files 184 

for RECORD files 170 

for STREAM files 171 

Printer-keyboard 199 

Priority of operators 36 

Problem data 20 

arithmetic data 20 

character- string data 23 

Procedure 47,19 

activation of 4 7 

invocation of 47 

main 47 

termination of 47,76 

Procedure reference 

general description and examples .. 76,19 

PROCEDURE statement 

format and rules 133 

general description and examples 4 5 

PROCESS compiler-control statement 

format and rules 158 

options 158 

Program 

segments 163 

termination 48 

Program- control data 24 

label data 24 

pointer data 25 

Program-flow control statement 41 

Program-name 

in job-control statements 145 

Program structure 18 

Prologue 49 

Punch card 15 

reserved columns of 15 

PUT statement 

format and rules 133 

general description and examples .. 40,71 

PUT STRING statement 71 

Qualified name 28 

general description and examples 2 8 

maximum length of 28 

R format item 101 

R picture character 97 

READ statement 

format and rules 134 

general description and options 66 

with SET option 85 

Record 54 

RECORD attribute 56 

RECORD condition 112 

Record format 166 

fixed-length 166 

of consecutive file 169 

of indexed file 176 

undefined-length 167 

variable-length 167 

RECORD file-description attribute 123 

Record I/O transfer statements 39 

Record-oriented transmission 65 

Recorded key 67 

Remote format item 

general description and examples 64 

rules and syntax 99 



Repetition factor 22 

compared with iteration factor 29 

Repetitive specification 

in a data list 60 

Replacement character 73 

RETURN statement 

format and rules 135 

general description and examples .. 43,77 

RETURNS entry-name attribute 

general description and examples 78 

rules 123 

REWRITE statement 

format and rules 135 

general description and options 66 

Root segment 163 

ROUND built-in function 106 

Row-major order 204 

Scope of a name 51 

extending the 75 

EXTERNAL 52 

INTERNAL 52 

Sector 173 

Segment 

loading of 163 

use of files and static storage in .. 164 
SEGMENT compiler-control statement .... 163 
SEQUENTIAL attribute 

general description 56 

rules 118 

Sequential retrieval of indexed file .. 175 

example 179 

Service program 141 

SET option 66 

SEVERE option 158 

Short floating-point form 22 

Signs 

in numeric- character data 95 

Simple defining 29,118 

Simpl e statement 18 

SIN built-in function 107 

SKIP format item 

general description and examples 63 

rules and syntax 101 

Source key 67 

Source module 153 

SOURCE option 158 

Special character 15 

list of special characters 15 

SQRT built-in function 108 

Stacker selection 179 

Standard system action 

(see individual conditions) 
Statement 

alphabetic list of statements 124 

compiler control 157 

compound 18 

data-movement and computational 40 

descriptive 38 

exception- control 44 

format of PL/I statement 15 

input/output 38 

job control 144 

keyword 18 

null 18 

program-flow control 41 

program- structure 45 

simple 18 
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Statement label constant 24 

Statement prefix 18 
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